









VORTEX 



iCHESS MACHINE1 



FIREBIRD 


GORILLA 



SUPER ASSEM 


Wir haben die 

tollsten 

Programme... 


Von unserem Super-Software-Programm sollten auch Sie profitieren ! 1 1 
Denn wir haben die fantastischsten Spiele und die tollsten Hilfspro- 
gramme! 1 1 Wir haben die Programme, die Sie haben sollten! ! I 

CHESS MACHINE 

Das neue Schachprogramm, mit der ganz tollen Grafik. Sowas haben Sie noch nie ge- 
sehen I - Höchstens bei Computer mit Super-Hochauflösender Grafik I - Und der 
Clou . CHESS MACHINE gibt Kommentare zu Ihrem Spiel. Damit Sie endlich einmal 
wissen was Sie richtig, und was Sie falsch machen ! Sieben Spielstufen I 
Preis auf Cassette: 59,-- DM Preis auf Diskette: 69,-- OM 

SUPER BASIC - DER UNGLAUBLICHE NEUE BASIC-COMPILER 

SUPER BASIC verarbeitet Felder (z. B. DIM BS (9,9,8) geht!) I SUPER BASIC ist 
fast kompatibel zum Colour Genie Basic I Übersetzte Programme laufen bis zu 300x 
schneller I 

Preis auf Cassette . 89,-- DM Preis auf Diskette : 99,-- DM - Mit Disk-Befehlen 1 1 1 

SUPER ASSEMBLER - DER ASSEMBLER, DER NEUE MASSSTABE SETZT! 

Was Sie mit diesem Assembler alles übersetzen können ist unglaublich 1 1 1 Und die vie- 
len Befehle, die der versteht. Die Disk-Version assembliert auf Wunsch direkt von der 
Diskette (Source-Code bis 170KI) I 

Preis auf Cassette: 89,- DM Preis auf Diskette : 99,- DM 

HELIKOPTER 

Retten Sie die armen hilflosen Menschen I Versuchen Sie den weißen Elefanten zu 
überfliegen. HELIKOPTER - Das Spiel, von dem die Fachpresse schwärmt! (Siehe 
z. B. Computer Kontakt Nr. 6-7/84) 

Nur auf Cassette lieferbar I Preis : 59,-- DM 

GORILLA 

Die fantastische Donkey-Kong Version für Ihr Colour Genie. Mit 10 verschiedenen 
Bildschirmen I 

Nur auf Cassette lieferbar! Preis: 49,-- DM 

FIREBIRD 

Können Sie die Erde vor den erbarmungslosen Angreifern aus dem All retten??? 
Super-Action ist garantiert I 

Nur auf Cassette lieferbar I Preis : 49,- DM 

PACBOY 

Helfen Sie dem kleinen PACBOY vor den hungrigen Gespenstern zu entkommen I 
Preis auf Cassette: 49,- DM Preis auf Diskette: 56,-- DM 

VORTEX 

Bewahren Sie die Ringe des Saturn vor den Aliens. Schaffen Sie das??? 

Preis auf Cassette . 49,- DM Preis auf Diskette : 56,- DM 

ASTRAY 

Fliegen Sie den schnellsten Überschalljäger der Erde und vernichten Sie die Angreifer 
Preis auf Cassette : 59,- DM Preis auf Diskette 66,- DM 

Sie sehen, wir haben für jeden Geschmack etwas zu bieten. Also bestellen 
Sie noch heute bei : Heinz Hübben, Abt. Software, 5429 Marienfels/T s. 

Versand per Nachnahme. + 5,-- DM Porto - Versand per Vorkasse : Frei 




AUSLAND 
VOR KASSE 
EUROSCHECK 

+ DM 5,- PORTO 








REVERSI 

Für Ihr Colour Genie das bekannte Spiel Re- 
versi. Selbstverständlich bietet Ihnen dieses Spiel 
eine tolle Grafik und fantastischen Sound. 

Seite 24 


LIFE 

Beobachten Sie das Wachstum einer Zellenkolo- 
nie. Alles läuft über einen fantastischen Editor. 
Übrigens durch das verwendete Maschinen- 
spracheunterprogramm läuft diese Simulation 
sehr schnell. Seite 54 


VERSAND SERVICE 

Hier sind wieder alle Bestellscheine übersicht- 
lich geordnet auf einer Seite. Beachten Sie vor 
allem unsere tollen Programme aus England. 

Seite 29 


IMPRESSUM 


GENIE DATA. Auigtba 2 Jahrgang 3, 1985 

HarausgaMr : H. und R. Hübben, Offsatdruck 
und Varlag, 5429 Marian fels/Tj. 
Chafradaktaur; Ralf M. Hübban 
Tltalgaitaltung: H. und R. Hflbben, Offaat- 
druek und Varlag, 5429 Marlanfe|j/T». 

Satz. H. und R. HQbban, Olftatdruck und 
Varlag, 5429 MirlanfaH/T«. 

Erichainungswalsa : Sechs mal Im Jahr 


AbonnamanU: 59,40 DMincl. Porto, Varpak- 
kung und gesetzt. MWSt. 

Crfonungaort : 5429 Marlanfals/Ti. 
Qarlchtntand i In ladam Fall dal für unteren 
Verleg zuitlndtga Gericht. 

Manuskripts i U na rvgaf orderte Manuskripte 
werden nur zurtckgeaandt, wann autralchan- 
das Rückporto Oeteeiegl wurde. Jeder Eln- 
•andar erklärt eich durch die Einsendung mR 
einer VerdftentUChuns des elngasandten Ma- 
terial» ln dar GENIE DATA und Im GENIE 
DATA Software Service einverstanden. 


Copyright <c) 1984 by H. u. R. Hübban, Offsat- 
druckaral und varlag. 5429 Marlenfell /Ts. 
Nachdruck, Vervielfältigung, Übertragung so- 
wie Speicherung in EDV-Anlagan verboten. 
Bai Bauanleitungen und/oder Programmen 
kann für die Fahlarfralhait keine Garantie 
übernommen werden. 

Die Meinung der einzelnen Autoren muS 
nicht mit der dea Verlages Qbaralnstimman. 
Anfragen an dis Redaktion bltts nur schrift- 
lich mit balgslegtem Rückporto. 

Kündigung der Abonnements : Zu-iedem Jahr, 
rechtzeitig, vor Ende des Jahres (6 Wochen). 
Jedes Abonnement verlängert sich nach Ab- 
lauf automatisch um aln Jahr. 

Sollte die GENIE DATA aut Gründen, die 
nicht In der Verantwortung des Verlages lie- 
gen, nicht oder nicht rechtzeitig erscheinen, 
besteht kein Anspruch auf Nachlieferung. 

Für eventuelle Schaden und/oder Folgescha- 
den an Geraten und oder Bauteilen und/oder 
Detenwsrlust kenn keine Haftung übernom- 
men werden. Der Nachbau unserer Bauaniel- 
tungan und/oder die Anwendung von Pro- 
grammen aus der GENIE DATA erfolgt auf 
eigene Gefahr. Alle Mitteilungen erfolgen nur 
für Amateur- und Hobby-Zwecke. Irrtum so- 


wie alle Rechte Vorbehalten. Et kann keine 
Gewahr dafür übernommen werden, dat die 
verwendeten Schaltungen, Firmennamen, Wa- 
renbezeichnungen und alle anderen Angaben 
frei von Schutzrechten Dritter sind. 

Sämtliche Veröffentlichungen erfolgen ohne 
BerScksichtigung einet eventuellen Patent- 
schutzes und/oder Gebrauchsmusterschutzes, 
Bel eilen Artikel-Einsendungen gehen wir da- 
von aus, da* der veffetsar eile Rechte an der 
Einsendung besitzt, sowie geistiger Eigentü- 
mer Ist. . 1 

Ober |ede Artikel-Einsendung freuen wir uns! 
Honorar: 

Nach Vereinbarung! 

wir gestatten ledermann, einen Artikel aut der 
GENIE DATA zu entnehmen, und in einer 
anderen, nicht kommerziellen, Druckschrift 
zu veröffentlichen, unter der Bedingung, das 
an der Gestattung nichts verändert wird, des 
erwannt wird, dat der betreffende Artikel 
aut der GENIE DATA entnommen wurde 
und det men uns mindestens ein Exemplar 
der betreffenden Druckschrift kostenlos, so- 
fort nach Erscheinen, zur Verfügung stellt. 


WÖRTERBUCH 

Für alle Genie I, II und III Besitzer ist dieses 
Programm gedacht. Es verwandelt Ihren Com- 
puter in ein Sprachgenie. Dieses Programm ersetzt 
Ihnen das herkömmliche Wörterbuch. 

Seite 46 


EDITOR 


Ein Bildschirmeditor für Ihr Colour Genie. Er 
funktioniert nach Art des bekannten Schneider 
CPC 464 und bietet Ihnen eine ganze Menge 
Komfort. Seite 51 


Hier kommt ein Super-Adventure Spiel für alle 
Colour Genie Besitzer. Dieses Spiel kann sich 
leicht mit gekauften Programmen messen. Und 
so etwas finden Sie bei uns zum Abtippen. 

Seite 34 


GENIE DATA ROBOT 


Nachdem Sie in der letzten Ausgabe alles über 
den Bau der Relais-Karte fanden, sehen Sie in die- 
ser Ausgabe, was Sie alles mit der Relais-Karte 
steuern können. Dabei achten wir natürlich am 
meisten auf die Möglichkeiten, unseren Robot zu 
steuern. Seite 5 

ASSEMBLER KURS 


Hier haben Sie den achten Teil unseres GENIE 
DATA-Assemblerk urses. Heute geht es um be- 
dingte Sprünge und Unterprogrammaufrufe. 

Seite 13 


Wenn Sie ein Programm haben, von dem Sie 
glauben, daß es für; uns interessant ist, schicken 
Sie es uns zu. Was Sie dabei beachten sollten, 
lesen Sie auf Seite 18 
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Talo« 889 702 Irom d 


TCS COMPUTER GMBH hat einen neuen 16-Bit Rechner vorgestellt, der hinsichtlich des Preis-Leistungsverhältnisses viel 
verspricht. - Der neue GENIE 16 „C", in der Grundversion schon ausgerüstet mit 256 KRam, 2 Laufwerken mit je 360 K 
und hochauflösender Farb-/Grafikkarte (wahlweise Monochrome-Karte) wurde vom Design her auf die bereits am Markt 
bekannten 8-Bit TCS-Rechner abgestimmt. - Zur Grundausstattung gehören selbstverständlich auch je eine serielle .( V.24 
bzw. RS 232-CI und parallele (Standard-Centronics) Schnittstelle; ohne weitere Steckkarten kann auf der Hauptplatine 
bis auf 640 K «weitert werden. - Das Betriebssystem MS-DOS mit Basic-Interpreter gehört zur mitgelieferten Standard- 
Software, Concurrent CP/M-86 in der Version 3.1 kann optional geliefert werden. , 

Der Verkaufspreis des GENIE 16 C beträgt DM 4995 j-- Incl. Mehrwertsteuer; eine Harddiskversion mit 10 MB und einem 
Laufwerk soll mit DM 7995,- incl. Mehrwertsteuer angeboten werden. Größere Festspeicher von 20 und 30 MB sind auf 
Anfrage erhältlich. 


faden Sie sich j &zh die 


die der Softwartverlag HÜBBEN, Marienfels, direkt für Sie in England eingekauft hat. 

So etwas miisstn Sie sehen, so etwas sollten Sie haben *** SPITZENSOFTWARE AUS ENGLAND 
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GENIE DATA 


ROBOT 


Ich hoffe, daß Sie alle beim Aufbau der Re- 
lais-Karte keine Probleme hatten, und daß 
bei jedem alles auf Anhieb geklappt hat. 

Bevor wir uns dem eigentlichen Aufbau 
des Robots zuwenden, wollen wir erst 
einmal ergründen, wie man mit unserer Kar- 
te einen Motor steuert, und was man sonst 
noch alles machen kann. Der Einfachheit 
halber haben wir Fischer -Technik Motoren 
und Baukästen verwendet, um alles aufzu- 
bauen, Sie können das auch tun, Sie können 
aber auch alles aus Holz oder Metall auf- 
bauen, Ihrer Fantasie sind keine Grenzen ge- 
setzt, höchstens durch Ihre handwerklichen 
Fähigkeiten. 

Zunächst einmal sollten Sie sich ent- 
scheiden, wie Ihr Robot aussehen soll. 
Wollen Sie nur ' einen Greifarm, oder möch- 
ten Sie ein Gerät, das auf der Erde fahren 
kann? Vielleicht ziehen Sie es aber auch 
vor, unseren Vorschlag einfach nachzubau- 


en ' 

Das letztere finde ich nicht so gut, denn 
Sie sollten, sich die Freude des 
Experimentierens auf jeden Fall 
gönnen! 

Nachdem Sie diesen Artikel gelesen ha- 
ben, sind Sie auf jeden Fall in der Lage, 
eigene Ideen zu verwirklichen! 

Schauen wir uns zuerst einmal an, wie 
man überhaupt mit der Relais-Karte einen 
Motor steuert. 

Sie benötigen hierzu; 

Die Relais-Karte, einen geeigneten Motor 
und eine Spannungsquelle für den Motor. Die 
Spannungsquelle kann ein Labornetzgerät, 
ein normales Netzgerät oder eine Batterie 
sein. Lediglich das Netzteil des Colour Ge- 
nie sollten Sie nicht anzapfen, da wir ihm 
nicht zuviel zumuten wollen. Schliessen Sie 
den Motor jetzt wie folgt an die Relais-Pla- 
tine an (Siehe Bild 1): 


7 6 5 4 3 2 1 0 


o 

o 
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Wenn Sie soweit sind, können Sie den Motor 
mit Ihrem Computer an- und ausschalten. 
Das geht dann so: 

10 SOUND 7,64:PORT A AUSGABE 
20 SOUND 14,1:REM MOTOR AN 
30 FOR 1=1 TO 300 
40 NEXT I:REM VERZÖGERUNG 


50 SOUND 14,0:REM MOTOR AUS 

Mit der Schleife in Zeile 30 und 40 können 
Sie die Zeit, in der unser Motor läuft, ver- 
ändern. 

Jetzt können wir also acht Motoren an- 
und ausschalten (Siehe Bild 2). 



i CT H I : FÜR COMMODORE C 64/SX 64 
PERSONAL COMPUTER MUSIC 


Das WERSIBOARD-SYSTEM MUSIC 64 besteht aus einem Orgel-Manual im Commodore 
Design, einem Interface-Modul und zugehöriger Software. Gemeinsam mit dem 
Commodore VC 64 entsteht ein Musikinstrument mit bemerkenswerten Fähigkeiten. 


Komplett-Paket bestehend aus 


KEYBOARD 

— 49 Tasten, 4 Oktaven C-C 

— PROFIFORMAT 

— Gehäuse aus stoßfestem Kunststoff 
im Commodore-Design 

— Interface-Modul mit Verbindungs- 
kabel, anschlußfertig 

SOFTWARE 

— auf 5'/t" Diskette 

— Programm MONO 64 — 
monophoner Synthesizer 

-r- Programm POLY 64 — 
polyphones Keyboard 

— Klangfarben direkt am PC 
veränderbar 


EINFÜHRUNGSPREIS DM 495 


inkl. MWSt; 


Direkt ab Werk, noch heute bestellen! 


BESTELLCOUPON 

Das WERSIBOARD MUSIC 64 ist Klasse 

□ Ich bestelle zu sofortiger Lieferung das 
WERSIBOARD MUSIC 64 zum 
Einführungspreis yon DM 495,- 

.- atzgl. Versahdselbstkosten — . 

gewünschte Zahlungsart 

□ Scheck ist beigefügt 

□ per Nachnahme 


Orgel- und Piano-Bausätze 
Industriestraße 
6401 Halsenbach 
Telefon (06747) 7131 
Telex 42323 


Datum 


• Unterschrift 

Bostellcoupon abtrennen und an Wersi senden 
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Etwas kompliziert wird die Sache, wenn Sie 
mehrere Motoren zu gleicher Zeit anschal- 
ten wollen. Aber auch das geht! Wir bedie- 
nen uns dann der logischen ODER-Funktion. 
Ein Beispiel: 

Sie wollen Motor- 8 und Motor 5 gleichzeitig 
anschalten. Das geht dann so: 

SOUND 7,64 

SOUND 14,1 OR 8 jj 

Zum ausschalten: 

SOUND 14,0 


Die Zahlen, die Sie zum Einschalten der Mo- 
toren auf Port A ausgeben müssen, sind fol- 
gende: 


Motor 8 
Motor 7 
Motor 6 
Motor 5 
Motor 4 
Motor 3 
Motor 2 
Motor 1 


Jetzt könnten Sie zurecht bemerken, daß es 
uns wenig nutzt, die Motoren nur an- und 
auszuschalten, ln einem richtigen Robot 
müssen die Motoren ja vorwärts und rück- 
wärts laufen können. 

Um das zu erreichen, können wir die 
Motoren so anschliessen : 


Um Motor 4 einzuschalten, tippen Sie also 
folgendes: 

SOUND 7,64 
SOUND 14,16 

Um ihn wieder auszuschalten: 

SOUND 14,0 



«js 


' s r ' ''.V . 
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ALLE PROGRAMME aufC; 
für C 0 L 0 Ü R GENIE 


IPc&LgpJTT )^. 


Solange Vorrat relchtl - Programme ohne Preisangabe erhalten Sie im 3er-Pack 
für DM 49,50. - Jede Bestellung plus Porto u. Nachnahme-Gebühren, Ausland 
Zuschlag DM 5,- und Vorkasse. - Verwenden Sie für Ihre Bestellungen den Ver- 
sand-Serviceschein aus diesem Heft. Bestellungen an: Druckerei, Verlag, Soft- 
ware-Verlag H. u. R. HUbnen, MOhlbachstr.2, D-S429 Marienfels/Taunus. 


WIR HABEN DEN TEST GEMACHT . . . Sämtliche Büromaschinen, Computer, Drucker usw. 

erstrahlen in neuem Glanze 

mit dem SUPER-REINIGER BY-PAS® 

Verlangen Sie Angebote bei größeren Mengen oder bei Kleinabnahmen bestellen Sie sofort bei 




«P BY-PAS®-Chemie 

Deutschland und Europa 
Hersteller und Vertrieb von: 

Reinigungs- u. Ptlegemitteln, Kosmetischer Produkte 

jfj| Julius Kreutzer 

, Sk Postfach 1105 

«k. 6680 EPPELBORN 

, Telefon (0 68 81)72 04 












Hier sehen Sie, wie man sechs Motoren an- 
schliesst; alle können vom Computer auf 
Vorwärts- und Rückwärtslauf geschaltet 
werden. 

Ich glaube, sechs Motoren reichen auch 
für den komfortabelsten Robot! 

Auch hier müssen Sie wieder darauf 
achten, daß die' beiden Relais, die die 


Spannung für die Motoren umpolen, niemals 
gleich stehen! Also, wenn Nummer 7 an ist, 
muß Nummer 6 aus sein und umgekehrt 
(Kurzschlußgefahr!). 

Um nun jedes Risiko auszuschalten, 
empfehle ich folgendes Anschlußschema für 
die Motoren: 


Hierbei haben Sie immer noch fünf Motoren, 
die Sie steuern können. 

Relais 5 und 6 übernehmen das umpolen 
der Betriebsspannung und Relais 7 schaltet 
die Spannung an und aus. Um nun hiermit 
einen Motor zu steuern, schalten Sie zuerst 
mit den Relais 0 bis 4 den gewünschten 
Motor an, dann stellen Sie mit den Relais 5 
und 6 die Laufrichtung für den Motor ein 


und zuletzt schalten Sie mit Relais 7 die 
Betriebsspannung ein. Zum Ausschalten 
verfahren Sie genau umgekehrt. Zuerst 
schalten Sie mit Relais 7 die Spannung aus, 
dann folgen Laufrichtung und Motor. Wenn 
Sie wollen, können Sie auch alle Relais auf 
einmal ausschalten, auch dann passiert 
nichts (SOUND 14,0). 

Das können Sie aber nur tun, wenn Sie 


• . . •• ..." •' .• • • 

.y. .• ■' 

j - ' ; ' ; \ ' ■ ; 

I Diesen Motor können wir jetzt vorwärts und 
| : rückwärts laufen lassen, indem wir . mit den 

Relais 1 und 2 die Spannung umpolen und 
mit Relais 0 ein- und ausschalten. 

Das funktioniert prima, wenn man die 
Relais 1 und 2 niemals gleich geschaltet 
hat. Wenn nämlich beide gleichzeitig an 
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oder aus sind, gibt es einen Kurzschluß. Das 
heißt: Wir schalten zuerst die Relais und 
legen dann die Spannung an! Am besten pro- 
bieren Sie die Schaltungen für die Relais 
erst einmal aus, ohne die Spannung für den 
Motor anzulegen. 
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ERSTE MARKT-ÜBERSICHT 


für iBM-kompatible SOFTWARE 


Schon heute bemühen sich die Hard- und Software-Hersteller weltweit ihre Computer und 
Programme IBM-kompatibel zu gestalten. IBM-kompatible Software ist daher für die ganze 
Computerbranche richtungsweisend geworden. 


Diesem Trend folgend 
erschien im Heel Verlag 
erstmalig der , , Software 1 '- 
Katalog 1985", Mit Über 
650 Programmen ist der 
Katalog die größte und 
ausführlichste Markt- 
Ubersicht auf diesem Ge- 




Der Software-Katalog 
gliedert sich in drei Teile: 

1 . Systemsoftware 

2. Branchenneutrale 
Software 

3. Branchenspezifische 
Software 

Außer einer Vielzahl von : 
techn. Angaben, wie z.B. 
notwendige, Hardwarekonfi- 
guration oder Programmier- 
sprache, ist zu jedem Pro- 
gramm die Bezugsquelle, 
eine Kurzbeschreibung und 
der Preis angegeben. 

Anhand des Software- 
Kataloges kann der Com- 
puterbesitzer die für sei- 
ne Belange optimale 
Problemlösung finden, z.B, 
Rechnungen schreiben, 
Kundendatei erstellen, 
Patientendaten auswerten 
oder das Lager Überwachen 
u.v.m. 


Der SOFTWARE-KATALOG ist zum Preis von DM 29,80 
im Buch- und Zeitschriftenhandel erhältlich. 


Software-Katalog 1985, 650 Programme, Format DIN A 4, Preis DM 29,80, 
erschienen im F. Ch. Heel Verlag, Königswinterer Str. 528-536, 5300 Bonn 3 




ySS'S.-J 

11! 

V.V.V4 

V.V., 
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Hier nocheinmal die Codes für die Ausgabe 


dieses Anschlußschema verwenden! Wenn Sie 
sechs Motoren steuern und schalten alles auf 
Null, gibt es einen Kurzschluß! 

Hier noch ein praktisches Beispiel: 

Wir schalten Motor 3 an und lassen ihn eine 
Weile vorwärts laufen, danach eine Weile 
rückwärts und dann alles aus. 


M 5 = 1 
Ml = 2 

M 3 = 4 R = Relais-Nummer 

M 2 - 8 

M 1 = 16 M = Motor-Nummer 
R 5 = 32 
R 6 = 64 . 

R 7-- L28 


10 SOUND 7,64:'Port A auf Ausgabe 

20 SOUND 14,0:' Alles aus 

30 X = 64:’ Vorwärts 

40 X = X OR 4:’Motor 3 an 

50 X .=. X OR 128:'5pannung an 

60 SOUND 14,X:'Schalten 

70 FOR 1 = 1 TO 200-.NEXT l:' Warten 

80 SOUND 14,0:' Alles aus 

90 X - 32:’Rückwärts 

100 X = X OR 4:' Motor 3 an 

110 X = X OR 128:'Spannung an 

120 SOUND 14,X:'Schalten 

.130 FOR 1 = 1 TO 200:NEXT IPWarten 

140 SOUND 14,0:' Alles aus 


So, soviel zur Motorsteuerung des Ro- 
bots. Jetzt kann es natürlich sein, daß Sie 
ihrem Robot auch ein wenig Tastvermögen 
verpassen wollen. Dazu müssen Sie noch 
wissen, wie man einen Sensor anschliesst. 

Nehmen wir an, Sie bauen einen Robot, 
der auf der Erde fährt. Wenn er jetzt ir- 
gendwo anstößt, soll er anhalten, ein paar 
Sekunden warten, und probieren, ob das Hin- 
derniß beseitigt wurde. Das soll er dreimal 
tun, dann soll er in die entgegengesetzte 
Richtung losfahren, falls das Hinderniß 
immer noch da ist. Sie bringen hierzu an der 
vordersten Stelle des Robots einen Taster 
an, den Sie wie folgt an der Relaisplatine 
ansch Hessen: ' . 

Ein Kabel kommt an den Stift B 7, das 
andere an GND. ' ' 


Beachten Sie bitte, daß die einzelnen Vor- 
gänge nicht, nacheinander auf den Port gege- 
ben werden, sondern zuerst in einer Vari- 
ablen zusarhmengeODERt werden, dann 
erfolgt erst die Ausgabe! 


Der Stift B7 ist auf der 
Platine gekennzeichnet. 


-flo- D ■-© 


Wenn Sie jetzt den Port abfragen, bringt er 
Ihnen immer eine 255, ausser, Ihr Robot 
stößt an, dann meldet der Port eine 127. 
Also, wenn nach folgendem Programm eine 
127 in X steht, dann ist der Robot ange- 
stossen. 


2. Alle Motoren anhalten. 

3. Drei Sekunden warten. 

4. Z = Z.+ 1 

5. Ist Z = 3? Wenn nein, dann weiter, wenn 
ja, dann Schritt 7. 

6. PORT B immer noch 127? Wenn nein, 
dann Schritt 1, wenn ja, dann Schritt 3. 

7. Z - 0 . 

8. Fahrtrichtung ändern. 

9. Weiter bei Schritt 1. 


10 SOUND 7,64:' PORT A auf Ausgabe 
20 OUT 248,15:'Als nächstes Register 15 
abfragen 

30 X = INP(249):' Abfragen 


: Sie sehen, mit unserer Platine läßt sich 
ein Robot schon ganz gut steuern! 

In der nächsten Ausgabe gehen wir an 
den praktischen Aufbau. Ich wünsche Ihnen 
aber jetzt schon viel Spaß beim experimen- 
tieren! 


Ein Programmablaufplan der das oben be 
schriebene tut, könnte also so aussehen: 


1. PORT B = 127? Wenn ja, dann Schritt 2, 
wenn nein, dann Schritt 1. 
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BESTELLUNGEN 

AN 

Heinz u. Ralf Hübben 
Offsetdruckerei / Verlag 
Software-Verlag 
Mühlbachstraße 2 
D-5429 Marienfels/Ts. 


Das COLOUR GENIE BUCH aus unserem Verlag bringt unter anderem: Neue und alte ROM's im Ver- 
gleich, alle Z80 Maschinenbefehle in übersichtlicher Form, Joysticks-selbst gebaut, was braucht man 
an Software, wie arbeitet man mit dem Bildschirmsfeuerungs-IC, wie programmiert man den PSG 
(Programmier. Sound Generator), wie baut man Maschinenprogramme in Basicprogramme ein, altes 
mit vielen Beispielprogrammen, viel Software zum abtippen, und, und, und ... 

Das COLOUR GENIE BUCH von uns müssen Sie haben! Es bringtJhnen viele Informationen, die Sie 
nötig brauchen. Für Anfänger und Profis 1 IBA ■ ■ - 

Also bestellen Sie sofort l ü| 49.-- DM. SOll'E© j CrCl 

156 Seiten stark, für Sie geballtes Wissen! 


COLDAT ist das universell einsetzbare Adreß-Verwaltungs-Programm für 16K und 32K 
Colour Genies mit einem oder zwei Disketten- Laufwerken und einem beliebigen Drucker. 

Mit COLDAT können Sie Adressen eingeben, laden, ändern, Aufkleber drucken, Listen er- 
stellen, selektieren, und, und, und, ... 

Interessant ist übrigens auch der Preis: COLDAT kostet auf Diskette mit ausführlichem 
deutschem Handbuch nur 79,-- DM 1 

Übrigens: COLDAT ist durch seine Bildschirm- und Drucker-Masken äußerst leicht zu 
bedienen! 
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Assembler, Teil 8 


Wir wollten uns in diesem Teil des Assemb- 
ler-Kurses ja noch einmal eingehender mit 
den Möglichkeiten eine Entscheidung zu 
treffen befassen. 

Wiederholen wir noch mal kürz: 

Der. ZSO trifft alle Entscheidungen aufgrund 
der Flags im Statusregister. Diese Flags 
werden anhand von Berechnungen gesetzt 
oder rückgesetzt. Auch der Compare-Befehl, 
den wir uns im letzten Teil angesehen 
haben, ist eigentlich nur eine Berechnung! 
Das Byte, welches nach CP steht, wird vom 
Inhalt eines Registers oder einer adressier- 
ten Speicherzelle abgezogen. Anhand des Er- 
gebnisses werden dann die Flags gesetzt. 

Bevor ich Ihnen jetzt eine Liste aller 
Vergleichsbefehle, aller bedingten Sprünge 
und aller bedingten Unterprogrammäufrufe 
gebe, wollen wir uns noch zwei Flags anse- 
hen, anhand derer man auch Entscheidungen 
treffen kann, die Sie aber bis jetzt noch 
nicht kennen. 

Ais erstes wäre da das Parity-Flag. 
Wenn das Ergebnis eines Vergleiches eine 
gerade Zahl ergibt, wird das P-Flag gesetzt, 
wenn es eine ungerade Zahl ergibt, wird das 
P-Flag zurückgesetzt.Die Bedingungen dazu 
lauten :. 

PO = Parity odd 

= Parität gerade 


Und als nächstes hätten wir das Sign-Flag. 
Das Sign-Flag wird gesetzt, wenn das Er- 
gebnis eines Vergleiches eine Zahl mit posi- 
tivem Vorzeichen ist, und es wird zurückge- 
setzt, wenn das Ergebnis ein negatives Vor- 
zeichen hat. 

Die Bedingungen hierzu lauten: 


So, jetzt kennen Sie alle Flags, die zum 
Treffen von Entscheidungen wichtig sind. 

Jetzt schauen wir uns die bedingten 
Sprungbefehle an: 


JP N.C, Adresse = ' 

Springe wenn C-Flag = 0 

JP C, Adresse = 

Springe wenn C-F-lag =1 

JP PO, Adresse = 

Springe wenn P-Flag = 1 

JP PE, Adresse = 

Springe wenn P-Flag = 0 

JP P, Adresse = 

Springe wenn S-Flag =1 

JP N, Adresse = 

Springe wenn S-Flag = 0 

Bei den relativen Sprüngen gibt es nur 
folgende Bedingungen : 

JR C,8-Bit-Offset - 
Springe wenn C-Flag = 1 

JR NC,8-Bit-Offset = 

Springe wenn C-Flag = 0 

JR Z,8-Bit~Offset = 

Springe wenn Z-Flag =1 

JR NZ,8-Bit-Offset = 

Springe wenn Z-Flag = 0 

Für die CALL-Befehle gelten wieder alle 
Bedingungen: 

CALL NZ, Adresse = 

CALL wenn Z-Flag = 0 

CALL Z, Adresse = 

CALL wenn Z-Flag =1 

CALL NC, Adresse = 

CALL wenn C-Flag = 0 

CALL C, Adresse = 

CALL wenn C-Flag =1 

CALL PO, Adresse = 

CALL wenn P-Flag =1 

CALL PE, Adresse = 

CALL wenn P-Flag = 0 

CALL P, Adresse = 

CALL wenn S-Flag = 1 

CALL N, Adresse = 

CALL wenn S-Flag = 0 

Und auch die Rückkehr aus einem 
Unterprogramm (RETURN) kann man von 


JP NZ,Adresse = 
Springe wenn Z-Flag .= 0 

JP Z,Adresse = 
Springe wenn Z-Flag = 1 


PE =■ Parity even 

= Parität ungerade 


P = Positiv 
N = Negativ 
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Der „COMPUTER-KATALOG 1985" aus dem HEEL VERLAG *) 




Es wurde großer Wert 
darauf gelegt, den Umgang 
mit diesem Standardwerk so 
einfach wie möglich zu 
machen. 

Erstmals wurde in diesem 
Jahr ein umfangreiches 
Register mit in den Katalog 
aufgenommen. 

Der Leser hat hiermit die 
Möglichkeit, in kürzester 
Zeit auf die gesuchten 
Informationen zuzugreifen. 


Die Marktübersicht für Heim- und Personalcomputer 


Der COMPUTER KATALOG 
1985 ist mit über 750 Ge- : 
raten die Kaufberatung für 
den deutschen Computer- 
Markt. Nicht nur Micro- 
Computer, sondern auch 
die wichtigsten Zusatzge- 
räte, Drucker und Plotter, 
werden mit Bild, den techn. 
Daten, Preis sowie einer 
sehr leicht verständlichen 
Kurzbeschreibung vorge- 
stellt. Bei den Micro- 
Computern ist sogar die vom 
Hersteller angebotene Soft- 
ware aufgeführt. 










SL Speziell für Einsteiger und 

Neulinge bietet der Com- 
AVAVA ' AWAV ’ ’ p u ter- Ka ta I o g einen beson- 
deren' Service': 

chtigsten Begriffe der Computerei mit einfachen Worten erklärt. 
Gerät genannten Spezifikationen erläutert. 


Der COMPUTER-KATALOG ist zum Preis von DM 26.80 
im Buch- und Zeitschriftenhandel erhältlich. 

Computer-Katalog 1985; 360 Seiten, Format DIN A 4, über 600 Abb.; Preis DM 26,80 
erschienen im F. Ch. Hee! Verlag, Königswinterer Str. 528-536, 5300 Bonn 3. 


*) Anmerkung d. Redaktion : Sehr, zu empfehlen I 







mm 

■i 
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verschiedenen Bedingungen abhängig 
machen : 


So, das war 's für heute! Tschüß, bis zum 
nächsten Mal! 


RET NZ = 

RETURN wenn Z-Flag .= 0 
RET Z = 

RETURN wenn Z-Flag = 1 
RET NC. = 

RETURN wenn C-Flag i 0 
RET C = 

RETURN wenn C-F lag = 1 
RET PO - 

RETURN wenn P-F lag .= 1 
RET PE = 

RETURN wenn P-F lag ..= 0 
RET P =• ' 

RETURN wenn S-Flag = 1 
RET N =. 

RETURN wenn S-Flag = 0 


* Genie - Tandy Computer Service* 
********************************* 

* Genie III s ab DM 6650 - *. 

* Genie 16 B ab DM 5550,- * 

* Genie II s ab DM 1855,- * 

* Genie III ab DM 5250,-* 

* Drucker M 100 ab DM 845,- * 

* Monitore ab 279,- . * 

* Modem mit FTZ Nr. 298,- # 

****** testen Sie uns ******* 
*>>>>> Colour Genie <<<<<<<<<<<<* 

* Clock Interrupt * Disco Light * 

* Bi ld-Muster-Generator * Logik-* 

* Analysator * Spektrum Änalys. * 

* A/D Wandler * EPROMer * Oszill* 

* C-Forth * Fortran * EDTASM 3.0* 

* Grafik * Tsave * Protec * . . . . * 

* und Spiele , Spiele , Spiele * 
********************************* 

* 96 K u . CP/M 2.2 Mod I DM 555,-* 

* CP/M 3.Q für TRS-80 u. Genie * 

* HRG ** Speed Up ** 80 Zeichen * 

* V24 ** 500 Installationen 1984* 

* Beratung * Schulung * Service * 

* Entwicklung * Komplettlosung * 

* Katalog gegen DM 2 Porto * 

********************************* 

* Disketten Data Magnetics * 

* >> IS DM 3,50 >> ID DM 4,00 * 

* >> 2D DM 5,00 > >Mehgestaf f el * 

* >> ID ohne Label DM 3,50 * 

* Händleranfragen erwünscht * 

********************************* 
*C0MPUTER SERVICE, Beverbäkstr. 46* 

* 2900 Oldenburg, ®0441/36218 * 

********************************* 


Da wir schon gerade dabei sind, zeige ich 
Ihnen auch Befehle, mit denen Sie die Flags 
direkt verändern können: 

CCF 

Compiement Carry-Flag 
Carry-Flag komplementieren 

Carry-Flag = 1 — > 

- CCF;" $;• -■ --> 

Carry-Flag = 0 

Carry-Flag = 0 — > . 

CCF r ; --> 

Carry-Flag = 1 

Das heißt: Das Carry-Flag wird durch CCF 
einfach umgedreht. 

Ä ■ SCF 

7 Set Carry-Flag 


VERKAUFE CG 32K, Disk.- 
Laufw. m. Contr., Thermo- 
drucker, Softw. m. Disketten 
VB 1925,- DM, 

Telefon 0231 -B53429. 


KLEIN -ANZEIGEN 




Walls: Break-Out-Version 
Brücke: Fesselndes Strategie- 
Spiel. Kalender: Für jeden 

Monat A-Z -Spiel: Bekanntes 
Quiz Yahtzee: Bis z. 6 Spie- 
ler DM 40,- i.Brief (Einschr.) 
an Stephan Friedrich, Prökel- 
moor 2/2000 HH 71. 


VERKAUFE: 32K Colour Ge- 
nie- Doppelfloppy, Drucker 
DP 510, 2 ROM-Cartridge mit 
je 12K Progr.,Eprom-Progr., 
Progr; a. Täpe U;Disk.(ü.200) 
kompl. f. 2500,- DM o. ein- 
zeln, 

Werner Krenn, St.-Wolfgangs- 
platz 11, 8000 München 80, 
Tel. 089/4138315: 


VERKAUFE originalverpackt 
TCS COLOURTEXT mit An- 
Itg. statt 99,- nur 65,- DM. 
P. Kaiser, Hardtstr.13a, 

7500 Karlsruhe 21. 


VERKAUFE Colour Genie 
32K, 16 Mon alt, 

Tel. 0234/538643, 

4630 Bochum 1 


VG I + Mon, + Flöppy/500 
KB + HG 512*256, viel Soft- 
w., VHB 2.200,-. 

Tel. 0721/685366.. 


* BIORHYTHMUS für CG * 
20 DM a. Cass./Disk. bei 
T .Wagner, Paul-Klee-Str.118, - 
5090 Leverkusen 1. 


COLOUR GENIE 

Fünf Superprogr. a.. Cassette 






OtK * 04 


dte*® r 


Sp' 8 ' 0 




TfiGNN 


«ÄrST— . *”Sv*'. 




******* 


** 


** 


♦**' 


MIT DIESEM FANTASTISCHEN SPIEL haben Sie es nun geschafft! - Sie sind mitten unter Ihnen. 
Sie können den rasanten Befehlen des Computers entgegenwirken. Es geht auf Gedeih und Verderb. 
Drängen Sie Ihren Gegner ins Verderben. - Er versucht das gleiche mit Ihnen. - Außerdem wird das 
Spiel immer schneller. - Treiben Sie Ihren Gegner in die Engel .- Lassen Sie ihn explodieren! - Bei 
1000, 2000, 4000, etc. Punkten gibt es jeweils ein extra Fahrzeug. - Falls Ihnen der Gegner zu gut ist, 
können Sie mit gedrückter SPACE-Taste den Gegner überholen und evtl, vernichten. 

Dieses Spiel ist sehr aufregend, spannend zum bersten und nicht leicht zu spielen - die Rekordliste 
wird es zeigen. - Man könnte mit diesem Spiel einen DEUTSCHEN MEISTER heraussteilen I . 

PREIS für Cassette NUR DM 49.- 



da 





TERRA * ein Action-Spiel, welches Sie zum Wahnsinn treibt I - Feindliche Raumschiffe greifen 
die Erde an. Sie müssen sie blitzschnell in ihr Fadenkreuz bekommen und abschießen mit Ihren Laser- 
strahlen. Sind alle Angreifer zerstört, dann kommen noch zwei weitere Angreiferwellen. Im Anschluß 
daran erhält man einen Bonus, und die Punktezahl wird gezeigt. - Danach kommen wieder neue 
Angreifer, wobei deren Abstand, ihre Anzahl und die Geschwindigkeit des Fadenkreuzes von Runde 
zu Runde verändert werden. - Wird die Erde von einem Raumschiff gerammt, dann explodiert sie. 
Retten Sie die Erde I Das Spiel hat Sprachausgabe. über Fernsehlautsprecher! 

Eine tolle Bereicherung Ihrer Sammlung auf Cassette zu einem Superpreis von DM 39 
*•«*•***•••**••*•***•••*•**•*#•***••****«•••«*•*••**••••«*«*»••••••»*•»*•••*••** 




TANK MAZE * DAS SPIEL DER SPIELE ! Dieses Spiel sollten Sie natürlich auch haben. -Sie fahren 
Ihren Panzer in Stellung und lauem auf die gegnerischen Panzer und ballern dann los. - Es kommt 
bei diesem Spiel eine wahre Gefechts-Situation zustande, die den Spieler derart mitreißt, so ähn- 
lich wie bei TRONN, daß man um sich herum einfach alles vergißt, und drauflos ballert, daß es 
nur so kracht und rumst! Von Spiel zu Spiel wird man immer besser und der Spaß wird größer. 
Tolle Grafik mit 3D-Effekten, toller Sound. - Übrigens tolle Grafik und wirklich toller Sound ist 
auch bei den anderen Spielen vorhanden ! 

Dieses wahrhaft tolle Spiel erhalten Sie bei uns auf Cassette für NUR DM 49,-J^auf Disk. DM 56,- 








ALLE SPIELE SjND BRANDNEU und jede Bestellung wird schnellstens an Sie per NN abgeschickt : 
PREIS Postgebühren u. NN-Kosten. - Versand bei Vorkasse frei ! An Fa. Hübben, D-5429 Marienfels/Ts. 

Mühlbachstraße 2 


JUMP * EIN GANZ FANTASTISCHES SPIEL, was doch auch ganz schön nerven kann. - 
Steuern Sie ein kleines niedliches Männlein auf einem laufenden Förderband jeweils eine Etage höher 
und verhüten Sie in die Löcher zu fallen. Bei einem Sprung nach oben, dürfen Sie nicht gegen die 
Decke springen, denn dann fällt das Männlein um und sieht einen Kreis voller Sterne. - Aber er läßt 
sich nicht verdrießen und steht schnell wieder auf usw. - Je höher man es schafft, bekommt man es 
mit Gespenstern zu tun und es lauern viele Gefahren. - Dann wird es schneller und noch schlimmer. 
Aber Sie werden es selbst sehen wie es weiter geht. k 

Tolle Grafik und herrlicher Sound Nur auf Cassette DM 39,-- 


• * *# ***************** ****** ****** ***** *** ****** 
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PRESSE-INFORMATION ‘ 
der Firma KIRCHNER ELEKTRONIK in Duisburg Neudorf 
Führend in innovativen Techniken 


DER COMPUTER-TUNER AUS DUISBURG 


Nicht nur in seiner Heimatstadt 
Duisburg ist er erfolgreich 
im Geschäft. Dort hat er sich, 
bei der Universität mit dem 
" tunen "eines Epson QX- 10 
einen Namen gemacht. So schaffte 
es Kirchner, die Speicherkapazi- 
tät des ohnehin schon hochquali- 
fizierten System zu verdoppeln, 
um damit auch den gehobenen An- 
sprüchen in Forschung und Ver- , 
waltung gerecht zu werden. ' 


In der Automobil- Branche- 
kennt man sie schon seit 
langem, die " Tuner ", die 
Serienfahrzeuge um- und auf- 
rüsten, um mehr. Leistung aus 
ihnen herauszuholen. 


Auch im Computer- Geschäft 
haben sich inzwischen einige 
Firmen darauf spezialisiert, 
die elektronischen Geräte 
auf Höchstleistung zu trimmen 


Das Engagement für seine Pro^- 
dukte spiegelt sich inzwischen auch 
in seinen Verkaufszahlen wieder. 

So gewann er den von der Firma 
Epson ausgeschriebenen bundesweiten 
Verkaufswettbewerb für- den QX- 10. 


Einer der ersten Computer- 
Tuner in Deutschland ist der 
Diplomingenieur Anton Kirchner 
(37 J.) aus Duisburg- Neudorf. 


Der junge Unternehmer, dessen 
Firma Kirchner^ Elektronik 
gerade ihr 10- jähriges Jur 
biläum feiert, hat bundesweit 
einen guten Ruf . 
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WIE SCHICKE ICH 
MEINE PROGRAMME EIN 


Die kostenlose KUNDENDIENST-INFORMATION 

GENIE NACHRICHTEN 


bei ihrem Händler zu haben! 


BEST E L L - C 0 U P O N 
Bitte, senden Sie mir kostenlos die neueste Ausgabe 
der GENIE - NACHRICHTEN 


oder anfordern bei 
HEEL-VERLAG 
Postfach 320220 
5300 BONN 3 
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1984 lag er auf der " Rangliste 
mit Abstand an erster Stelle 
und wurde mi.t einem Preis aus- 
gezeichnet. (auf dem Foto über- 
reicht der Verkaufsleiter der 
japanischen Firma EPSON, Michael 
Biew, dem Duisburger Jungunter- 
nehmer eine Urkunde) 


Vor Io Jahren fing alles an. 
Nach einem Elektrotechnik- 
Studium an der Universität 
Aachen, damals laut Kirchner, 
das Mekka der Elektrotechnik, 
forschte er in der Fernseh- 
Entwicklungsafateilung eines 
Weltkonzerns. Doch die Arbeit 
reizte ihn nicht auf Dauer, 
da in einem so großen Unter- 
nehmen durch starre Vorgaben 
seiner Kreativität Grenzen 
gesetzt wurden. 


Auf die Frage nach seinem Ver- 
kaufserfolg: " Gut drei Viertel 
der von uns verkauften Computer 
sind getunte Serienprodukte oder 
Spezialanfertigungen nach Kunden- 
wunsch. Wir fragen unsere Kunden 
zu allererst, was der Computer 

für welchen speziellen Zweck alles 1'975 gründete Kirchner in Duis- 

können muß. Nach vielen Gesprächen bürg einen Elektronik- Bastler- 

und neuer Auswertung aller Informa- ' laden, 
tionen bieten wir ein absolut 

passendes System an. Doch erst Das Startkapital, dazu lieh er 

jetzt beginnt die Trimmarbeit. Der sich von seinen Eltern. 1978 
Seriencomputer wird so lange umge- folgte er den Zeichen der Zeit, 
friemelt , bis er den gewünschten spezialisierte sich auf Com- 

Anf orderungen gerecht wird und puter und zog nach Neudorf um 

somit seine Höchstform erreicht. in Geschäftsräume, in denen ge- 

Daran tüfteln meine Mitarbeiter rade die Konkurrenz . pleite ge- 

und ich oft Monate, " schneller macht hatte, 

und universeller " ist dann auch 

das Motto des Tüftelteams vom Heute beschäftigt Anton Kirchner 

Rhein. in seiner Computer- Schmiede 

Io Mitarbeiter, alles engagierte 
Wir haben die Erfahrung gemacht, daß Computer- Freaks, 
es immer wieder Anwender gibt, die 
noch größere Ansprüche an Hard- 
uhd Software stellen, als es die 
ohnehin schon hochqualifizierten 
Serienprodukte bieten. " 


Kirchner: " Einige von ihnen 
haben auch privat Computer zu- 
sammengebastelt. Diese intensive 
Beschäftigung mit der Materie 
ist natürlich auch für die Firma 
Für den rauhen Einsatz im Gelände von Nutzen. " 

konstruierte Kirchner einen portablen 
Computer mit kleinstmöglichen Ab- 
messungen; Dieser vollwertige 
CP/M- Computer wiegt nur knapp 
2 kg, mißt stolze 7o x 11o x 170 mm 
und speichert 8oo KB auf seiner 
Diskette, (bei einem Preis von 

ca. DM 2 . 000 ,--) '-''y : Alle Programme haben eines gemein' 

sam: Sie machen Computer zuver- 
lässiger, anwenderfreundlicher 
und schneller. 

Dennoch sind sie im Preisgefüge 
.. , für jeden Anwender erschwinglich. 

" Auf diesem Sektor machen uns 
die Kaufhäuser den Markt streitig 1 . 

Unsere Chance liegt in der kom- 
pletten Allround- Leistung und 
im Ausnutzen modernster Materi- 
alien, die noch nicht in der Serie 


Neben der umfangreichen Hardware- 
Veränderung erstellt Kirchner . 
selbst eine ganze Reihe kleiner, 
nützlicher Nebenprogramme, die die 
Routinearbeiten erleichtern helfen 


Im reinen Verkaufen von Computer 
Hardware sieht Kirchner keine Zu 
kunft für den Fachhandel. 


Headlines: 

DIE COMPUTERSCHMIEDE aus Duisburg 
SUPER COMPUTER maßgeschneidert! 

Nähere Informationen entnehmen Sie bitte den nachfol 
genden Druckseiten : 



E)ipl.-Intf. Anton Kirchner, Finkenstr. 5 

Wie wünschen Sie sich Ihren Personal Computer 7 


Z-80A CPU 

256 kByte RAM Hauptspeicher 

32 kByte RAM Bildschirmspeicher 

2 Laufwerke eingebaut 

800 kByte Kapazität pro Laufwerk 

Centronics-Druckerschnittstelle 

RS- 232 / V24 - serielle Schnittstelle 

80 Zeichen x 25 Zeilen 

640 x 400 Punkte Vollgrafik 

entspiegelter 12 Zoll Bildschirm 

deutsche Tastatur mit abgesetztem Zehnerblock 

10 programmierbare Funktionstasten 

eingebaute Uhr 


Mit diesen Daten liegt ein Computer zweifellos am oberen Ende der 
Personal-Computer-Skala. > 


Für den professionellen Einsatz sind aber nicht nur solche 'allerwelts 
technische Daten wichtig! 


Für den, der täglich mit dem 'Werkzeug' Computer arbeitet, zählt vor 
allem das, was seinen Stress vermindert, die Belastung für Augen und 
Finger minimalisiert, unverständlich umständliches Arbeiten verhindert, 
kurzum: er braucht nicht nur die Leistung eines Formel 1 Wagens son- 
dern auch den Komfort einer Luxus-Limousine. 


Und dazu braucht ein Computer auch noch: 


absolut zuverlässige Hardware, bereits die 'Auspackqualität' 
muß 100% sein (stellen Sie Ihrem Händler die Gretchenfrage !) 


fehlerloses, verläßliches Betriebssystem , das alle (!) 
Hardwareteile, Schnittstellen, Grafik unterstützt 


herstellerunabhängiges Betriebssystem , damit man auf die 
Programme anderer Leute zurückgreifen kann (CP/M, MS-DOS) 

Basic, das mit Befehlen (ohne Peeks und Pokes !) alle 
Hardwareteile, Schnittstellen, Grafik unterstützt 

Bildschirm ohne 'Punktesalat', d.h. mit geschlossenen, 
lesbar geformten Buchstaben mit gleichmäßiger Helligkeit 

dunkler, d.h. kontrastreicher und nichtflackemder Bildschirm 

matte ergonomisch geformte und eingeteilte Tastatur 
mit getrenntem, sinngerechten Cursurblock und 
Zehnerblock mit angegliederten Rechentasten (+,-,*, /, A ,=). 

Echtzeituhr mit Datum, akkugepuffert, also nicht bei jedem 
Einschalten erst Uhrzeit setzen müssen 

ScreenDump-Taste, durch deren Druck man jederzeit den ge- 
samten Bildschirminhalt auf den Drucker bringt (auch Grafik) 

Es sind die Kleinigkeiten, die einen Computer richtig brauchbar machen ! 
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Dipl.-In«. Anton Kirchner«: Flnkenstr. 5, 4lGO Duisburg T 


EPSON-BüROCOMPUTER der QX-SERIE 
QX-10: 

... das 'NONPLUSULTRA* aller Z-80 - Computer 


... der QX-10 mit zusätzlichem 16-Bit Prozessor und MS-DOS 
Emuliert den IBM-PC nahezu hundertprozentig ! 


Für beide gibt es unseren CP/M - TUN I NGl -Kit 

auf 3,2MB Diskkapazit&t> 


QX-16: 



Wir haben für Sie den richtigen Drive 



□ 



Bl 



Oipl.-lniS. Anton Kirchner, f 

Floppy-Disk -Drives - 
eine Frage des Formats? 

Wenn Sie jetzt an die unterschiedlichen Datenträ- 
ger-Formate wie 3 1/2" oder 5 1/4” denken, haben Sie 
natürlich recht. Auf der anderen Seite spielen aber 
auch noch Faktoren wie Einbaumaße, Funktions- 
sicherheit und Flexibilität eine - wie wir meinen - 
nicht ungewichtige Rolle. Nicht zu vergessen der 
Bedienungskomfort und die Frage, wie schonend Ihr 
Speichermedium Diskette vom Floppy-Disk-Drive 
behandelt wird. 

EPSON bietet Laufwerke von Format . Für 3 1/2" und 
51/4" Standard-Disketten. Mit einem neuartigen 
Mechanismus, der die Disketten optimal zentriert 
und somit zur erhöhten Lebensdauer des Datenträ- 
gers beiträgt. Wie wichtig das ist, können Sie sich 
selbst leicht beantworten. Immerhin vertrauen Sie 
einer Diskette Ihr Programm, Ihre Daten und im Ein- 
zelfall sogar das Betriebssystem Ihres Computers an, 
Wenn Sie selbst schon vorsichtig mit Ihren Daten- 
trägern umgehen, also warum dann nicht auch Ihr 
Laufwerk? 


Inkenstr. 5, 41GO Duisburg T 

EPSON hat sich auch des thermischen Problems' 
angenommen. Überhitzung ist eine der häufigsten 
Fehlerquellen der Floppy-Disk. Durch Reduzierung 
der Leistungsaufnahme ist es uns gelungen, dieses 
Problem endgültig auf Eis zu legen. Nebeneffekt: 
erste, in Serie gefertigte, batteriebetreibbare Flop- 
py-Disk-Drives der Welt. Dazu noch in kompakter 
Bauweise, wie übrigens alle Floppy-Disk-Drives von 
EPSON. 

Sorgfältige Qualitätskontrollen 
sind die beste Garantie. 

Während der gesamten Fertigung durchlaufen die 
EPSON-Laufwerke ständig Qualitätskontrollen. 
Wir bevorzugen es eben, Qualität von vornherein 
einzubauen, statt Fehler nachträglich auszumerzen. 
Das sind wir Ihnen und unserem Namen einfach 
schuldig: 


Modell 

Technische Daten 

SD-521 

SD-540 

SD-560 . 

FM 

MFM 

FM 

MFM 

. FM ■ 

.MFM. - 

Speicher- 

kapazität 

Unformatiert 

2S0KB 

500 KB 

500 KB 

1000 KB 

802 KB; 

1604 KB 

Formatiert 

(16 Sektoren/Spur) , 

164KB 

328 KB 

328 KB 

656 KB 

513 KB . 

1025 KB 

Speicherdichte (bpi) 

2938 

5876 

2961 

6922 

4523 

9646 

Datenübertragungsrate (Kb/s) 

125 

250 

125 

250 

250. 

500 

Mittlere Latenzzeit 

100 msec 

100 m sec 

: 83 m sec 

Zugriffs- 
zeit ' 

Spur zu Spur 

6 msec 

3 msec 

vri.VG. " 3 msec 

Durchschnittliche Latenzzeit 

97 msec 

96 m sec 

93m sec 

Kopfberuhiqunqszeit 

15 msec 

15 msec 

I5msec, 

Kopfladezeit 

•' ,v 

35 m sec 

35 msec 

Spurdichte 

48 (TFI) 

96 CTP5) 

96 (TP!) 

Spuren pro Oberfläche 

80 (40x2) 

160 (80x2) 

154 (77x2) 

Antriebsmotor 

Startzeit 

0,5 sec 

0.5 sec 

1.0 sec 

Umdrehungsqeschwindigkeit 

300 Umin" : 

300 U'min- 1 

360 U min- 1 

Umgebungs- 
bedingungen ■ 

Luftfeuchtigkeit 

20% -80% (Betrieb) 

20%-8Q% (Betrieb) 

20% -80% (Betrieb) 

Temperatur 

4°C-43°C (Betrieb) 

4°C-43°C (Betrieb) 

4°C-43°C (Betrieb) 

Anschluß- 

werte 

+ 12 V (±5%) 

0.35 A (TYP) 

0.4 A (TYP) 

0.4A (TYP) 

1.4A (MAX) 

1.5 A (MAX) 

1.5A (MAX) 

+ SV(±S%) 

0.4A (TYP) 

0.45 A (TYP). 

0.45A (TYP) 

0.55 A (MAX) 

0.7 A (MAX) 

0,72 A (MAX) 

Anstiegszeit 

100 m sec (MAX) (12 V u. 5 V) 

100 m sec (MAX) (12 V u. S V) 

100 msec (MAX) (12 Vu. SV) 

Leistungsaufnahme 

. 6.2 W (TYP) i 

7.1 W (TYP) 

7.1 W (TYP) 

Abmessungen (BxHxT) 

146 mmx41mmx 195.5 mm 

Gewicht 

1.3 Kg 

1.4 Kg 

. 1.4 Kg 

Zuverlässigkeit 

MTBF 

10000POH 

10000POH 

10000POH : 

MTTB 

0.5 hour 

0.5 hour 

0.5 hour 

Soft error Rate 

1 per 10 9 bits read 

Iper 10 9 bits read 

1 per 10 6 bits read 

Hard error Rate 

Iper 10 12 bits read 

1 per 10 12 bits read 

Iper 10“ bits read 

Seek error Rate 

1 per 10 6 Seeks 

1 per 10® Seeks 

1 per 10 6 Seeks 

| Interface' .1 Industrie Standard 5.25" 

Industrie Standard 8" 


" 7 :, '■ ■' ■ 



Überlegen Sie mal, welche Möglichkeiten 
ein batteriebetreibbares Laufwerk bietet 

Mit den 3 1/2" Laufwerken der lOOer-Serie sind Sie 
unabhängig von der Steckdose, Sie können also 
einen, mobilen Datenspeicher konzipieren. Ein 
Datenspeicher der, je nach Type, bis zu einem 
MegaByte an Daten verwaltet und darüber hinaus mit 
enorm schnellen Verarbeitungszeiten aufwarten 
kann. Falls Sie die Sorge haben, Daten auf der 5 1/4" 
Diskette seien jetzt unbrauchbar, können wir Sie 
beruhigen. Überspielen Sie die Daten einfach auf die 
3 1/2" Floppy - fertig. 


Das 5 1/4” Laufwerk von EPSON 
macht sich ganz schön dünn. 

Nur halb so hoch wie ein Standard-Laufwerk sind 
die Drives der SD 500er-Serie. Klar, daß auch diese 
Laufwerke schonend mit Disketten umgehen. Dafür 
sorgt die praktische Einknopfbedienung. Die Disket- 
tenwerden optimal zentriert, die Schreib-/Leseköpfe 
geschont, die Diskette kann einwandfrei gelesen und 
beschrieben werden, Eins können Sie von der 500er- 
Serie "allerdings nicht erwarten: laute Arbeitsge- 
räusche. 


Anschlußschema des EPSON -Interface 


Serie SMD-31/2” Floppy -Disk-Drives 


Startzeit 


Antriebsmotor 


Umdrehungsgeschwindigkeit! 


20% -80% (Betrieb) 


Umgebungs- 

bedingungen 


Luftfeuchtigkeit 


Temperatur 


3°C- 45°C (Betrieb) 


Standby 


VmA(TYP) 


■i 12V(±5%) 


Maximum 


60 mA 


Anschlußwerte 


Standby 


8 mA(TYP) 


+ 5V(±.5%) 


340 mA (TYP) 


Maximum 


850 mA (MAX) 


iQO msefe(iiii^(12V'ünd 8 V) 


Anstiegszeit 


Leistungs- 

aufnahme 


0.05 W (TYP) 


3.2 W (TYP) 


Abmessungen (BxtlxT) 


101.6 mmx40 mmxl47.5 mm 


Gewicht 


MTBF 


10000POH 


Zuverlässigkeit 


1 per 10 12 Bits read 


Seek error Rate 


Industrie Standard. 3.575.25'' 


Pin-Nr. 

Signal-Bezeichnung 

Pin-Nr. 

Signal-Bezeichnung 

Pin-Nr. 

Signal-Bezeichnung 

Pin-Nr. 

Signal-Bezeichnung 

4- 

In.Use ., 

12 

Drive Select 1 

20 

Step 

28 

Write Protected 

6 

Drive Select 3 

14 

Drive Select 2 

22 

Write Data 

30 

Read Data 

8 

Index 

16 

Motor On 

24 

Write Gate 

32 

Side Select , 

10 

Drive Select 0 

18 

Direction 

26 

Track 00 

34 

Ready 


Modell 

Technische Daten 

SMD-150 

• * 

SMD-160 

SMD-170 

' SMD-180 

FM 

MFM 

FM 

MFM 

FM 

MFM. ’ 

FM ■ 

. MFM 

Batteriebetreibbar 

Ja Ja 

.Ja' Ja 

Speicher- 

kapazität 

Unformatiert 

125 KB 

250 KB 

250 KB 

500 KB 

250 KB 

500 KB 

SCO KB 

1000 KB 

Formatiert 

(16 Sektoren/Spur) 

82 KB 

164 KB 

164 KB 

328 KB 

164 KB 

328 KB 

328 KB 

656 KB 

Speicherdichte (bpi) 

4064 

8128 

4323 

8650 

4095 

8190 

4360 

? 8720 

Datenübertragungsrate (Kb/s) 

125 

250 

125 

250 

125 

250 

125. 

250 

Mittlere Latenzzeit 

100 m sec 

• 100 m sec 

. Zugriffs- 
zeit 

Spur zu Spur 

6 rr. sec 

. . rti sec 

Durchschnittliche Latenzzeit 

97 m sec 

üo m sec 

Kopfbemhigungszeit 

15 msec 

15 nt sec . 

Spurdichte 

67.5 (TP1) ' 

135 (TPI) 

Spuren pro Oberfläche 

40 | 80(40x2) 

80 | 160(80x2) 
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Das bekannte Spiel für das Colour Genie. Der 
Spieler tritt gegen den Computer an. . Das 
Spiel ist vollständig in Basic geschrieben und 
erklärt sich selbt. 


10 ’ ttt****t*******t********t****** 

20 ’* REVERSI Version Juni 1984 * 

30 ' * erweitert im Nov. * 

40 ’* geschrieben von Stefan Aust * 

50 ’ t*t*ttttt****t*t****t**t*t*tt** 

60 * ./ 

70 ’Praedikat:= wertvoll !! 

80 MC) by Stefan Aust 1984 

90 ’ v '. ; ■ . 

100 CLS 
110 DEFINTA— Z 
120 RANDOM 

130 P0KE16396,7’ (Kein BREAK) 

140 DATAO, 1,2,40,41,42 
150 DATA223, 211, 227, 227, 218, 223,223, 228,227, 227, 224, 223, 205, 226, 224, 228 
,205,226 

160 DATAO, 1,-1, 1,-1, 0,-1, -1, 0,-1, 1,-1, 1,0, 1,1 
170 DIMQ2<6) ,Q(5,6) ,S1 (8) ,S2(B> , A(9,9) 

180 F0RI=1T06: READQ2 ( I ) : NEXT ' 

190 FOR I = 1 T06 : READQ (0,1): NEXT 
200 F0RI=1T06: READQ (2,1): NEXT 
210 F0RI=1T06: READQ (5, I) : NEXT 
220 F0RI=1T08: READS1 (I ) , S2 ( I ) : NEXT 

230 f -BILDSCHIRM— — ' 

240 COLOUR 1 

250 PRINT§201, "xeeeee " 

260 PRINT" eeääääe" 

27Ö PRINT" en e 1 ' 

280 PRINT" en e“TAB ( 37) "ü" 
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290 PRINT" eeeIIe. " 

300 PRINT" ER <tF5 xeee e e xeee exee xeeee e" 

310 PRINT" een <ti e e e i E e e- en e" 

320 PRINT" een iE eeIe< e xe eeee- e cee ee" 

330 PRINT" EEN EE EN €E> EN EE E EE" 

340 PRINT" EEN EE ciEE -r EEEE EE EEEEE- EE " 

350 PRINT: PRINT "Ei n Spi dl von 
360 C0L0UR4: PRINT"Stef an M.Aust”; 

370 COLOUR 1 : PRINT" , 2300 Kiel." 

380 PRINTS970, "Bitte Taste druecken "; 

390 L=15: 0=RND <6) : T=RND (12) 

400 A*=INKEY*: IFA*< >" "THEN430 

410 PLAY < 1 , 0, T, L> : FORI -1T010: NEXT: L=L-1 

420 I F,L< 3THEN390ELSE400 

430 PLAY ( 1 , 0, T, 0) 

440 CLS 

A30 PRINT"Reversi : " ; : COLOUR5: PRINT" * Erkl aerungen *" 

460 F0RI=0TO39 , 

470 PRINT "ö"; : PLAY ( 1 , 3, 6, 15) : F0RU=1T030: NEXT: PLAY < 1 , 1,1,0) : F QRU= 1 TQ30 : N 
EXT . • . 

480 NEXT 

490 C0L0UR16: PRINT§200, "REVERS I - ein Intelligenzspiel ..." 

500 G0SUB2580 

510 PR I NT " REVERS I - das Wort bedeutet UMKEHRUNG" 

520 60SUB2580 

530 PRINTTAB < 10) " (aus lat. rever si o, oni s f )" 

540 GGSUB2580 

550 PRINT : '' 

560 G0SUB2580 

570 PRINT"Und dies ist auch der Spi elgedanke. " 

580 G0SUB25B0 

590 PRINT" Versuchen Sie meine Spiel steine ( " ; : C0LQUR3: PR INT "rot " ; : COLOU 
R16: PRINT" ) " 

600 GDSUB2580 

610 PRINT"mit Ihren Spielsteinen ei nzuschl i esen 
620 G0SUB2580 

630 PRINT"und .sie so zu Ihren zu machen." 

640 G0SUB2580 

650 PRINT"Dabei werden die Steine umgedreht und 
660 G0SUB25B0 

670 COLOUR2: PRINT"gruen" : : C0L0UR16: PRINT" . " 

680 G0SUB2580 
690 PRINT"Uebri gens, " 

700 G0SUB2580 

710 PRINT"bei mir ist das natuerlich umgekehrt! 

720 G0SUB2580: GOSUB25SO 
730 PR INT §920, “Ist Ihnen alles klar ?*’ 

740 F 0R0=5T0 1 STEP- 1:F0RT=1TG7: PLAY (1,0,T, 15) : NEXTT, 0: PLAY < 1 , 1, 1,0) 

750 A*=INKEY*: IFA(M=""THEN750 

760 IFA$="J "THEN790 

770 F0RI=1T024: PRINT: NEXT 

780 PRINTS4O0, ; : INPUT"Dann fragen Sie"; A$: G0T0440 
790 CLS 

800 PRINT"Reversi : C0LGUR6: PRINT" * SONSTIGES *" 

810 FORI =0T039 

820 PRINT"ö" ; ; PLAY ( 1 , 5, 2, 15) : F0RU=1T030* NEXT: PLAY ( 1 , 1, 1,0): FORU=1T030: N 
EXT 

830 NEXT 

840 G0L0UR16: PRINT§200, "Darf ich Sie ’ Duzen oder wollen Sie lieber 
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weiterhin ’Gesiest 7 ' werden (D/S) " 

850 D*=INKEY*: IFD*< >",S"ANDD*<>"D"THEN85Ö 
860 GOSUB2580 , 

870 PRINT§400, ; 

880 IFD*= ,, D ,, THENPRINT"Willst Du" ; ELSEPRINT"Wol 1 en Sie”; 

890 PRINT" beginnen ? (J/N)" 

900 A*= I NKE Y* : I FA*< > " J " AND A*< > " N " THEN900 

910 G0SUB2580 

920 I F A*=" J "THENC= 1 ELSEC=0 

930 PRINT§600, "Ach ja," ' 

940 G0SUB2580 

950 PR INT "Wenn " ; : IFD*="D"THENPRINT"Du passen willst, gi bt "ELSEPRINT"Si 
e passen wollen, geben Sie" 

960 PRINT“bi tte 'A% '0' ein." 

970 GOSUB25BO: G0SUB2580 

980 — ; — START — , 

990 Al=5: A2=2: Cl=2: C2=2 ' 

1000 F0RI=0T09: F0RJ=0T09: A ( I , J ) =0: NEXTs NEXT 
1010 A ( 4 , 4 ) = A 1 : A ( 4 , 5 ) =A2 
1020 A ( 5 , 4 ) = A2 : A ( 5 , 5 ) = A 1 
1030 CLS 

1040 X*=" 0=2 1504 

1050 F0RI=0T07:F0RJ=0T07 
1060 P=1 7497+1 »120+J *4 
1 070 
1080 
1090 
1100 
1110 
1 120 
1130 
1140 
1150 
1 160 
1170 
1 180 
1 190 
1200 
1210 
1220 
1230 
1240 

ehen" 1 

1250 PRINT" — " 

1260 PRINT§240, CHR* ( 14) ; 

1 270 A*= I NKE Y * : I FA*< " A " ORA* > “ H " THEN 1 270 
1280 Y=ASC(A*)-64 
1290 PRINTA*;" , "; 

1300 A*=INKEY*: IFA*< "0"0RA*>"8"THEN1300 
1310 X=ASC(A*)-48 
1 320 PR I NT A* ; CHR* (15); 

1330 IFXO0THEN1410 
1340 PRINT§360, "Versieh-" 

1350 IFD*="D ,, THENPRINT"test Du? "ELSEPRINT" ten Sie?" 

1360 PRINT" (J/N)" 

1 370 A*= I NKEY* : I FA*= " " THEN 1 370 
1380 IFA*< >"J" THEN 1220 , ‘ 

1390 IFG3=2THENC3=1 

1400 RETURN - . • 

1410 C3=0 . ’ ' 


CO oÄ 


Q=A(I+1, J+l) 

G0SUB21 10 
G0SUB2070 
NEXT: NEXT 

C0L0UR4: PRINTf 10, "A B C D E F G H" 

FORI=OTD7 

PRINT§88+I*120, CHR* (49+1) NEXT 
C0L0UR1 : C3=0 

C= 1 -C : I FC=0THENG0SUB 1 220ELSEG0SUB 1 690 
G0SUB2160 

PR INT §400,, "Es" : PR INT "steht: " : PRINTUSING"##" : CI ; : PRINT " zu";C2 
G0SUB258Ö 

I FC 1 +C2=640RC3= 1 THEN2620 
GOTO 1150 

ti SPIELER -- 

Al =5: A2=2 . 

G0SUB2160 

I FD*= " D " THENPR I NTSBO , "Du " : PR I NT" siehst " ELSEPR I NT §80 , " S i e " : PR I NT “ z i 


B||| GENIE DATA 27 

1420 IFA ( X , Y) =0THEN1470 
1430 PRINTS 360, "Feld" i PRINT" i st" 

1440 PR I NT " schon " : PR INT "besetz t “ 

1450 GOSUB2540 
1460 GOTO 1220 

1470 G0SUB2 190 ' 

1480 IFZ100THEN1520 

1490 PRINTS600, "UNMOEG— " : PR INT "LI CH ! ! " / 

1500 G0SUB2540 
1510 GOTO 1220 
1520 G0SUB2240 

1530 IFZ 1 >0THEN1580 ’ ^ 

1 540 PR I NTS60O , " Di es er " : PR I NT "Zug ist" 

1550 PRINT"un— " : PRINT" sinnig!" 

1560 GDSUB2540 
1570 GOTO 1220 
1580 Q=A1:S=0 
1590 G0SUB2350 

1600 I FD$= " D " THENPR I NT § 720 , "Du hast" ELSEPR I NT § 720 , "Si e" : PRINT "haben " 
1610 Z4=STR$ <S~1 ) 

1620 Z*=RIGHT$(Z$,LEN(Z*)-1) 

1630 I FS< 3THENPR I NTZ* " Stei n "ELSEPRINTZ*" Steine 
1640 PRINT"von mi r " : PRINT’-bekommen " ; 

1650 C1=C1+S:C2=C2-S+1 
1660 G0SUB2540 
1670 RETURN 

1680 7 — — r-COMPUTER— 

1690 Al =2: A2=5 
1700 G0SUB2160 
1710 X2=0: Y2=X2 : Z=X2: P0-200 

1720 PR I NT S 80 , " I c h " : PR I NT " 2 i eh e " : PR I NT " — " 

1730 F0RX=1T08: PRINTSPO, " . " ; CHR$ ( 24 ) CHR$ (14);: P0=P0+4 1 

1740 F0RY=1T08 

1750 IFA ( X , Y) < >0THEN1 B90 

1760 G0SUB219G 

1770 IFZ l=OTHEN 1890 

1780 G0SUB2240 

1790 I FZ 1 =OTHEN 1 890 

1800 IFX=lDRX=BTHENZl=Zl+2 

1810 IFY=10RY=8THENZ 1— Zl+2 

1820 IFX=20RX=7THENZ 1 =Z 1 -2 

1830 IFY=20RY=7THENZl=Zl-2 

1840 IFX=30RX=6THENZ 1=Z 1+1 

1850 IFY=30RY=6THENZ1=Z1+1 

1860 I FZ 1 < ZTHEN1 890 

1870 IFZ 1 =Z IFRND ( IO) >5THEN1 890 

1880 Z=Z 1 : X2=X : Y2=Y 

1890 IFRND (3) =1 THENPLAY ( 1 , RND <7) , RND < 7) , 15) ELSEPLAY ( 1 , 1,0,0) 

1900 NEXT 

1910 NEXT : PRINTCHR* ( 15) ; : PLAY (1,1,0, O) : PRINT 

1920 IFX2=00RY2=0THENPRINT" Ich" : PRINT"passe ! C3=2: GOSUB2540: RETURN 
1930 X=X2:Y-Y2 
1940 Q=A1:S=0 

1950 G0SUB2350 s • 

1960 F0RI=1T07 : F0RJ=1TD7 : PLAY ( 1 , I , J , 15) : PLAY <2, 8-1 , J, 15) : PLAY <3, I,8-J, 1 
5) : F0RU=1 TÜ10: NEXT : NEXT : NEXT . . 

1970 FORI-1T03: PLAY (I, 1,0,0) : NEXT 
1980 PRINTS720, " Ich " : PRINT"bekomme" 

1990 Z*=STR*<S-1) 

2000 Z*=RIGHT*<Z$,LEN(Z$)— 1) ' 
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2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 


I FS< 3THENPR I NT Z* " Stei n "ELSEPRINTZ4" Steine“ 

IFD4="D” THENPR I NT " van Dir“ ELSEPR I NT " von" : PR I NT " I hn en " ; 
C2=C2+S:.C1=C1-S+1 , 

80SUB2540 
RETURN 
END .. 

FDRL=1TQ6 
P0KEP+Q2 (L) ,Q<Q,L) 

NEXT 

RETURN 

P=P-0 

F0RL=1T06 

PDKEP+Q2 < L > , Q : NEXT 

P=P+0 

RETURN 

FORI=0TO23 

PR I NT § 0+ i *40 , X$; : NEXT 

RETURN 

Z1=0 

FORI =1 T08 

IFA <S1 ( I ) +X, S2 < I > +Y ) =A2THENZ 1 = 1 

NEXT 

RETURN . 

Z1=0 . ■ - ■ . 

F0RI=1T08 

X1=X+S1 (I) : Y1=Y+S2(I) 

Z2=0 ‘ 

I FA ( X 1 , Y 1 ) < > A2THEN2330 
'Z2=Z2+l 

X1=X1+S1 (I) : Y1=Y1+S2(I) 

I FA < X 1 , Y 1 > =A 1 THENZ 1 =Z 1 +Z2 - 

G0T02280 y _..o 

NEXT ( COLOU 

RETURN 
FDRI=1T08 
Z1=0 

X1=X+S1 (I) : Y1=Y+S2(I) 

IFA ( X 1 , Y 1 ) < >A2THEN2520 
Z1=Z1+1 

X1=X1+S1 <I) : Y1=Y1+S2(I) 

I F A ( X 1 , Y 1 ) =A 1 THEN2430 
G0T02380 
X2=X:Y2=Y 
IFS>OTHENS=S~ 1 
FORJ=OTOZ 1 
P=1 7373+X2* 120+Y2*4 
G0SUB21 10 
G0SUB2070 
A(X2, Y2)=A1:S=S+1 
X2=X2+S1 ( I ) : Y2=Y2+S2 ( I ) 

NEXTJ 
NEXTI 
RETURN 

FDRI=1 T0150O: NEXT : RETURN 
PR I NTCHR$ ( 14 ) ; 

A4=TNKEY$: IFA$=" "THEN2560 
PRINT A4; : G0T02560 
F0RI = 1T06: PLAY ( 1 , 1,4, 15) t NEXT 
PLAY (1, 1,4,0) 

G0SUB2540: RETURN 


gen»e 
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PAKET BESTELLUNG 

Im Paket bestellen können Sie jeweils drei Arti- 
kel. Diese Artikel sind entweder nur Programme, 
oder zwei Programme und unser Colour Genie 
Buch. Auf jedes Paket gewähren wir einen 
Nachlass von 20,-- DM ! 

Artikel ; Betrag 


ABO BESTELLUNG 

(Abos nur per Vorkassel) 

Hiermit bestelle ich Abo(s) der Fachzeit- 
schrift GENIE DATA. Mir ist bekannt, daß ich 
das Abo bis sechs Wochen vor Ablauf schrift- 
lich kündigen kann. Der Bezuasoreis beträgt in- 
nerhalb der BRD nur 59,40 DM incl. Porto und 
Verpackung. Die Bezugsdauer verlängert sich 
nach Ablauf des Abos um weitere sechs Ausga- 
ben, solange bis gekündigt wird. Den Betrag von 
59,40 DMhabe ich: ! 

0 Auf Ihr Postscheckkonto 242072-606 Ffm. 
überwiesen 

O Per Scheck beigelegt 

Zutreffendes bitte ankreuzen. 

Mit Ihren Bedingungen erkläre ich mich einver- 
standen : 


Gesamt Betrag; ... 

Versand bitte, per: 

O Vorkasse 

O Nachnahme (Betrag plus 4,20 DM Porto I) 


Unterschrift Datum 

Bei Zahlungen ABSENDER nicht vergessen I 


.v.v.w.v 


W.V 


Datum 


lg Unterschrift 
$£§ Der Nachlass von 20 
jjp abgezogen I 

Bei Zahlungen ABSENDER nicht vergessen! 


SOFTWARE SERVICE BESTELLUNG 

Hier erhalten Sie Programme, die bereits in der 
GENIE DATA abgedruckt wurden. Wenn Sie 
keine Zeit oder Lust zum tippen haben, sollten 
Sie dieses Angebot nutzen ! 

Auch unsere Bücher können Sie mit diesem 
Schein bestellen. 

Anz. Artikel Preis 

D a spolqurG e ri i e.B uch _; - 49,--. 

..Cp.teur.ßO^fiug.h. , 

Spooler Genie ß ||J || t Disk . j 29,;;.,. 

Das.LSpie! ,.CG ,.Disk 36,-. 

Das, L-Sp.ie I, . C G Cassette 29,;.-. . . 

Gehi.mtrain.ing.CQ ,.Disk 36,-... 

G eh ir ntr a m in g , .CG , . Cassette . ... .29,;;... 

j^jffchqn CG,. Disk... .... 36,- , , 

......... Scfi iffchen CGy. .Q??.-. 23/-.. 

. „ Ha murab i A CG, D isk ... . .36,-.. 

........ H amurabi., CG., Cassette „29,-. 

........ . CG : .R ska rte t .P nf UW. 33/-.. 

Hier können Sie andere Programme eintragen! 


Mein Absender 

Tragen Sie hier bitte deutlich ein, an wen die Bestellung gelie- 
fert werden soll. Bei Vorkasse vergessen Sie bitte nicht, Ihrer 
Bestellung einen Scheck bei?ulegen. Versand ins Ausland 
kann grundsätzlich nur per Vorkasse erfolgen. Addieren Sie 
dann zu der Gesamtsumme Ihrer Bestellung DM 5,- für Porto 
und Verpackung und legen Sie bitte einen Euro-Scheck bei I 
(Nur für Ausland I) • ■ 


Name 


Straße 


Datum und Unterschrift (Unter 18 Jahren ein Elternteil) 


Gesamt-Preis: 

Versand per O Nachnahme / O Vorkasse, Scheck 
liegt bei. Bitte ankreuzen I 


Senden Sie diese Bestellung an: 

Fa. Heinz und Ralf Hübben, Mühlbachstraße 2 
D -5429 Marienfels/Ts. 


Datum 

nicht vergessen I 


Unterschrift 

Bei Zahlungen ABSENDER 






SCORE B8BBB1B OBBOBS 1 Hl -SCORE SBB3BB 


i mm äis 

wmi m 
m\m“ 




<CLCM> TB 31 


SCORE «888888 ARROWS 8 HI-8C0RE «88888 


Das fantastische Comic- 
Spiel jetzt auch auf 
Ihrem COLOUR GENIE* 

Da ist jeder weitere Kommentar 
überflüssig ! 

Auf CC nur DM 79,“ 
********* 

Jjs.iößs*^ 


für Kurzentschlossene II! 

Bei Bestellungen im 3er-P«ek 
^ ziehen wir Ihnen am 
bc Gesamtpreis 

JT dm 20,- ab. ' 

Wahlen Sie sich ^ |l 
■ Ihre Pro- ■ II 

gramme* II 


S Sie sind auf einem fremden Planeten 
notgelandet * Ihre Rakete ist hin * 
Gelingt es Ihnen mit Ihrem kleinen 
Sauerstoff-Vorrat aus den Ersatz- 
teilen eine neue Rakete zu bauen * 
Denken Sie daran, daß die Blimps angreifen * 


nur DM 43 
********** 






(Man hat sich in England Wahnsinnig 
viel Zeit genommen diese Spiele aus- 
zutüfteln, Spitzenleistungen in Ton, 
Grafik und Action *). 

Da sollten Sie sofort zugreifen. - 
Spiele nicht kopieren sagt unser 
Anwalt, - er hat schon alle Hände 
voll zu tun _ 


Die Copyrights 
dieser Programme 
liegen bei 
H.+ R. Hübben. : 
D-5429 Marienfel* 


olour Genie 


Fangen Sie den wilden Wurm Wolfgang * Aber hüten 

Sie sich vor seinen Kumpanen * der Spinne Saily, der 

Ente Duffy... * Auch die Pilze sind hier ganz schön 

giftig * SUPERSPANNUNG ist hier garantiert * 

Auf CC nur DM 59," 

********* 


Bestellschein f.Paket-o. Einzel-Bestellung 


Im Paket bestellen können Sie jeweils drei Arti- 
kel. Diese Artikel sind entweder nur Programme, 
oder zwei Programme und unser Colour Genie 
Buch. Auf jedes Paket gewähren wir einen 
Nachlass von20,--DMI 

Artikel Betrag > 


Hier ist die Super-Action mit A 10 Bomber * 

Dieses Spiel müssen Sie haben... Auf cc nur dm 59,-- 

********** 


Gesamt Betrag: ............. 

Versand bitte per: 

0 Vorkasse 

0 Nachnahme (Betrag plus 4,20 DM Porto I) 


Die wildgewordenen Droiden jagen Sie 
Für i oder 2 Spieler) Insgesamt 10 ver- 
schiedene Bilder * In HIRES-Grafik * 
Einfach TOLL 

Auf CC nur DM 59," 

\ *********** 


Datum 


Unterschrift 

Der Nachlass von 20,-- DM wird von uns 
abgezogen! 


Absender 


Straße 


Nachts als Dieb allein in Londons Straßen 4 
Aber leider sind die Bobbies hinter Ihnen 
her * Versuchen Sie auf Ihrer Flucht soviel 
Geld wie möglich zu klauen * Aber lassen 
Sie sich nicht erwischen, sonst landen Sie 
im Knast. 

Auf CC nur DM 49," 
********** 


Datum und Unterschrift (Unter 18 Jahren ein Eltemteil) 


Senden Sie diese Bestellung an: 

Fa. Heinz und Ralf Hübben, Mühlbachstraße 2 
D-5429 Marienfels/Ts. 


40 .«E'rfSfB» 

4 1 imcmectif f 


JEIOROIO SPIOROIO HERCUDROIO GRIHQRdIO 


I «R ? PLAYERS» 














32 GENIE DATA 


2610 ’ 

2620 CLS 


— SCHLUSS 

" ; : C0L0UR2 : PR INT"* Schluss *" 


2630 PRINT" Reversi : 

2640 F0RI=0T039 

2650 PRINT"ö"-, s PLAY (.1,2, 12, 15) : F0RU=1T030: NEXT: PLAY ( 1 , l, 1 , 0) : F0RU=1T030 
: NEXT 

2660 NEXT • 

2670 COLOURi 6 
2680 G0SUB2580 

2690 PRINTS200, "Das Spiel ist nun Zuende. " 

2700 G0SUB2540 

2710 PR INT "Es war sehr schoen ..." 

2720 G0SUB2540 ' , 

2730 PRINT 

2740 GÜSUB2540 

2750 IFC1 >C2THEN2800 

2760 I FD$= " D " THENPR I NT " Du hast " ; ELSEPRINT" Sie haben " ; 

2770 IFC2— CI <5THENPR INT "knapp verloren !": G0SUB2580: PRINT"Na ja, knapp d 
aneben ist auch vorbei . . . "ELSEPRINT" verl oren ! " 

2780 IFC2-C1 >12PRINT"Ei n schwaches Spiel. (Gaehn ! ) " 

2790 G0T02840 
2800 PR INT "Bravo, " 

2810 G0SUB2580 : ' 

2820 IFD*=" D" THENPR INT "Du hast gewonnen PR INTELSEPR INT" Si e haben gew 

onnen. Meinen Gl ueck wünsch ■ " 

2830 I FC 1 -C2< 5THENPR I NT " Ab er es war sehr knapp ! ! " : PRINT"Ei n zweites ma 
1 schaff"; : IFD*="D" THENPR INT "st- Du das nicht. "ELSEPRINT "en Sie das nich 

t. ” . .■■■■ 

2840 C0L0UR5: PRINT: PRINT: PRINT"Es steht : ";Cl"zu ,, C2 

2850 FDRÜ=1TÜ5:F0RT=1T07:PLAY(1,Q,T, 15) : T1=RND < 12) : PLAY <2. 0, TI , 15) : FORU 

=1T015: NEXT: NEXT: NEXT 

2860 FQRi=lT02: PLAY <1, 1,0,0) : NEXT 

2870 COLOURI 6 

2880 PRINT§800, ; 

2890 IFD$="D"THENPRINT"Willst Du " ; ELSEPRINT "Wol 1 en Sie"; 

2900 PRINT" noch einmal spielen ?" 

2910 0=RND (6) : T=RND (7) : L=15 

2920 A*=INKEY«: IFA*< >" "THEN295Ö 

2930 PLAY ( 1, 0* T,L):F0RI = 1 TOI 0: NEXT: L=L-1 

2940 I FL< 0THEN29 1 0ELSE2920 

2950 PLAY (1, 1,0,0) 

2960 IFA$=" N" THENPR INT: PR INT "Keine Widerrede ! : G0SUB2580: PRINT"Es wi 

rd noch mal gespi el t . " : G0SUB2540 
2970 G0T0790 


j a 7 e mobleme mrt G>° Bauma9 reoW CTION 

fr hatten Z " tP ' . 0N lhre GENIE DATA 

jmmen. r ufrZUCHES DANKESC 

.tändnis unser HERZ L ; 



IMMER WIEDER haben wir in der Redaktion 


uns darüber Gedanken gemacht über 

den Abo-Preis. 

Bis es dann geklickt hat. Unser Gedanke war: Setzen wir den Abo-Preis versuchsweise 
auf DM 48,- pro Jahr (sechs Ausgaben) und es regnet nur so Abos bei uns rein, dann 
würde DIE MASSE den billigen Abo-Preis rechtfertigen. 


f'XÄwÄww. 


V.W 

V.;.V 

tV.V. 


‘.v.y 

v*v. 

;ÄV 


DEM WAR NICHT SO 


Es kamen ca. 50% weniger Abos als vorher ! 


Somit war es von unserer Seite eine Fehlkalkulation - denn von Masse konnte wirklich 
keine Rede sein und um die GENIE DATA weiterhin existent zu erhalten, muß der Abo- 


Preis ab Ausgabe 2/85 wieder DM 59,40 betrag* 


Allerdings die wenigen Leute, die die Gelegenheit beim Schopf gefaßt haben, sind Glücks 
pilze und erhalten jetzt einmalig das Abo für DM 48,-. . 


v.'.'.y.v.v 


Wir hoffen, daß Sie das genau so gut verstehen wie wir. 


DIE REDAKTION 


für sechs Ausgaben 


34 GENIE DATA 


Bei diesem Spiel handelt es sich um ein 
Adventure-Spiel für das Colour Genie. Zu 
beachten ist, daß dieses Programm nur mit 
einer 16K Erweiterung läuft! Da im Ausdruck 
die Grafikzeichen nicht korrekt wieder 
gegeben, sind, müssen sie bei der Eingabe 
anhand der Tabelle übersetzt werden. Tippen 
Sie bitte den entsprechenden Buchstaben in 
Verbindung mit MOD SEL. Das Spiel erklärt 
sich selbst. - 


2 REM 4711 -ABENTEUER 

3 REM- 

4 REM 


5 FKE Y5= " CLS 

6 FKEY6="RUN249 

7 FKEY7="RUN341 

8 FKEY8= " RUN370 

9 CLE AR 1 50 : CHAR2 

10 CLS: G0SUB50: DEF INTA, B,C,D,E,F,G,V,U,Z 
lii, :PRINT§519, " '*:A3=200: PRINTS 55, "47" 11" 

1 2 PRI NT§92 , " ABENTEUERN" : C0L0UR3: PR I NT : PR I NT " ££££££££££££££££££££££££££ 
££££££££££££££" : PRINTS640, "SCHWIERIGKEITSSTUFE 1, 2 oder 3 ?" : PRINTS760 
, "Drueck bitte die entsprechende Taste ! " : PRINTS928, "<C> wilfried d. jo 
hn" ■ 

13 PRINT §A3, " " :A3=A3+1 : PRINTS A3, CHRf;< 134) : IFA3>51 8THEN1 1 ELSE A*= INKEY*: 
ZS=VAL(A*> : IFA*=" "THEN1 3ELSE0NVAL (A*) GOT014, 15, 16 

14 Z 1=150: GOTO 17 

15 Z 1=1 10: GOTO 17 
16; Z 1=80: GOTO 17 

17 Z9=Z 1 : CLS: CÜL0UR2: PRINTS48, "471 1 VA B EN T E U E R" : PR INT "£££££££££ 
£££££££££££££££££££££££££££££££": PRINTS 167, "Gib bitte jetzt Deinen":PRI 
NTS207, "Namen und das Datum ein ! " : PRINT: INPUT "NAME: " ; E* : IFVAL (LEFT* < (E 
*), 1) ><6THEN0NVAL(E*) GOSUB25, 26,27, 2B, 29 

18 INPUT "DATUM: " ; D*: PRINT§600, "Nur noch ein Hinweis, ";E*; " , " : PRINT"ersc 
heint unten rechts ein 'W’ musst Du irgendeine Taste druecken, damit 
":PRINT"das Spiel wei ter 1 aeuf t . Dadurch hast Du die Moeglichkeit die wi 
chtigen Anwei— sungen genau zu lesen!" 

19 G0SUB247 : CLS: PR INT §480, "Du, ";E*; ", " : PRINTS600, "wurdest vom" : PRINTTAB 
(6) "RAGOUL ISCHEN AUSSENMINISTER" : PRINT"zum Hofe OTTOKARS von RAGOULIEN 
gebeten. Dort erhaelst Du folgende Order :": G0SUB247: CLS 

20 PRINTS80, "Sie, " ; E*: PRINT: PRINT"sind fuer die Dauer Ihrer Mission de 
r Ragoulische Agent 471 1 . PRINT"Kaempf en Sie sich nach Alkaponien 

durch, zerstoeren Sie die Macht von Blasius vonAl kaponi en * " 

21 PRINT"Wei tere Anweisungen erhalten Sie von Dr.VULKANG, der sich z. 2 
- in einem verlas-senen Hotel in der Naehe des Geier — Vul- kans aufhaelt 

PRINT: PRINT"F1 iegen Sie mit dem Hubschrauber sofort dorthin, aber se 
hen Sie sich vor - " 

22 PRINT"Ei swol ken koennen den Motor vereisen, waswie das Erreichen duen 
ner Luftschichten unweigerlich zum Absturz f uehrt . " : PRINT"Kommt Ihnen e 
in Fels— Geier in den Rotor ist das Ergebnis aehnlich dem Durchf 1 ie— gen 
der hochexplosiven Gaswolken!" 

23 C0L0UR6: PRINT" Im Namen des KOENI GS von RAGOULIEN VIEL G 

LUE C K ! ! " ■ ; . . 


Version III 


ein wdjs— programm 



WILFRIED D. HOHN 

4711 


GENIE DATA 35 


24 PRINTS956, "W": A$=INKEY*: IFA*=" " THEN24ELSE30 •. 

25 E$= "WILFRIED D. JOHN": RETURN 

26 Et= "DDERTE SCHULZ " : RETURN 

27 E«*- HARTWIG 'V. JOHN" s. RETURN 

28 E$- "MAREN FIRWITZ" : RETURN . 

29 E*="KARL CHAOT" : RETURN: REM— 

30 - I $= v : J *= ■"• - z 1 =Z 9 : CLS : COLOUR 1 : PRI NT § 40 , "eeeee 
eieeeeieeeieieeeeeeiieeieeeleeeieee" 

31 CGL0UR6: PRINTS80, "ee P 1 : PRINTS 1 00, " h i- !■£ i " : PRINTS 431 , " >" 

PR INT §120, "El ": PR I NT §140, "ei (e IEö Hen" 

PRINT ,, eee" : PRINT? 180, "eeeee I JEeeI" 

PRINT"ee. " :PRINT?220, “«Iee IJeee l'" 

PRINT"ee I":PRINT?260, "(^eeee JeeeII" 

PR I NT ” Ä*- r" : PR I NT §300 , " Jgiii h§Eiü I " 

PRINT §340, "«f-ViV- “<jJ i PR INT §397, " P‘ : PRINTS476, " P' : PR INT §392 , n + u 
CÜL 0UR3 : PR I NT §320, "■■■■": Pf? I NT " eeeeu PR I NT "■■■■": PR I NT " eleeü " : PR I NT 
■ ■ " : PR INT "eeeeu" : PRINT"« ■ ■ « " : PRINT"eeeeü" : PRINT§599, : PRINT§559, "x 


34 

35 

36 

37 

38 


exe EE 


EE 


39 C0L0UR7: PRINTS604, "öef "eeeöex xöö .$Eä£-*-£ä. 

40 PRINTS64Ö, ''lEiilEElIIIiIiEiEliixEEEä£Ii 

41 PRINT 1680, "EEElEilEEEEEEEllEEEEEEiliEEEEElEllEEEEEE" 

42 PRINT--460, “ iilFi" 

43 PR INT §500, •’ EEEExe eö" 

44. PR INT§540,i" 4 Ie£eeeeee" 

45 PRINT§580," EE£äEEEEEH" 

46 C0L0UR8 : PR I NT §669 , " B “ ":PRINT§611, "■ ":PRINT§571, "* " 

47 C0LGUR2 : PR I NT§629 , ".V" : PRINT§668, " P* : PRINTS671 , " 1" : PRINTS 422, " P' :PRI 
NTS61Ö, " P' :PRINT?531, "W" 

48 COLOUR 7 : PR I N T § 720 , "eeeee" : PRINTS755, "eeeee" :PRINTS760, "eeeee" : PRINTS 
795, "eeeee" : PR INT §800, " eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee" 

49 G0SÜB5Ö: ß0T08O: REM-- : 

50 REM MANN, STEHEND--A CHR* ( 130) -B CHR*<131> 

51 P0KE?<HF4 10,0: P0KE&HF4 1 8, O 

52 P0KE?/HF41 1 , 6 : P0KE&HF4 1 9 ,0 

53 PQkE&HF 412,0: POKE&BF 4 1 A , O 

54 P0KE&HF4 13, 16: PQKE&HF4 l B, 20 

55 P0KE&HF414, 124: P0KE&HF41C, 120 

56 PDKE?vHF4 15,16: P0KE&HF4 1 D , 1 6 

57 P0KE&HF416, 40: P0KE&HF41E, 40 
5B POKE&HF4 1 7 , 68 : POKE8<HF4 1 F , 68 

59 REM MANN, BALKON-A CHR$<132> 

60 P0KE&HF42O, O: P0KE&HF428, Ö 

61 P0KE&HF421 ,0: P0KE&HF429,O 

62 P0KE&HF422, O: PQKE&HF 42 A, O 

63 P0KES<HF423, 2; P0KE&HF42B, O 

64 PÖkE8<HF424, 20: P0KE&HF42C, 16 

65 P0KE&HF425, 120: P0KE8<HF42D, 126 

66 EDKE&HF426, 16: P0KE&HF42E, 16 

67 POKE&HF 427, 40: POKE8<HF42F, 40 

68 REM HUBSCHRRAUBER 1. CHR*<128>- 

69 P0KE&HF400, 254: P0KE&HF430, 127 

70 P0KESrHF40 1 , 16: P0KE8<HF43 1 , 8 

7 1 POKE?vHF 402 , 57 : P0KE&HF432 , 1 56 

72 F'0KE8<HF403 , 95 : P0KE&HF433 , 250 

73 P0KE&HF404, 158: P0KE&HF434, 121 

74 P0KE&HF405 , 252. : POKE&HF435 , 63 

75 P0KE&HF406, 40: P0KE&HF436, 20 

76 P0KE&HF407, 124: P0KE&HF437, 62 

77 REM VOGEL CHR$<129) 

78 P0KE8<HF40B. 108 


B CHR$ (133) 



CHR$<134) 


36 GENIE DATA 


82 

83 

84 

85 

86 


STURZFLUG 5": 


1)<>C*THENIFA/ 


79 POKE&HF40C, 1 6: RETURN: REM — — — ; 

80 EP=0 : A=597 : B= 1 : C=506 : C 1 =RND ( 4 ) : RANDOM : C*= " " : Dl =RND < ZS+ 1) : D=1 77+D 1 *40 
:B9=0 

81 COLOUR8: PRINTSD, CHR* ( 129) 

C0L0UR1 : RANDOM: F1=RND (2) : ONF 1G0T083, 84 
PR I NT§ 283 , CHR$ < 1 30 > : F3=283 : F4= 1 30 : F5= 1 3 1 : G0T085 

F2=RND (3) : PRINT.?244+F2*BO, CHR* ( 132) : F3=244+F2*80: F4=132: F5=133 
C0L0UR4: PRINT SA , CHR* ( 128) :PRINTS10, "ZEIT: " :PRINT§27, "PUNKTE: " 

PR I NT § 728 , " VOR 1 HOCH 2 RUNTER 3“ : PRINTS 770, "STOP 4 
REM — — 

87 A*= I NKEY* : IFA*=" " THEN87ELSE0NVAL (A*) G0T092, 94, 96,98 

88 Z 1 =Z 1 - 1 : PRINTS 16, Z 1 : IFZ 1 =0THEN 1 48ELSE I FR I GHT* ( STR* (A) . 
5=INT(A/5)THENB=B+1:C*=RIGHT*(STR*(A) , 1) 

89 ONBGOSUB 1 O 1 , 104, 109, 114,117, 122, 126,129 
A*= I NKEY* : I F A*= " " THENONV AL ( B* ) G0TO92 ,94,96,98 
ONVAL (A*) G0T092, 94, 96, 98, 100 

IFA*< >""THENB*=Ä*: A=A-1: PRINTSA, CHR* (128) :PRINTSA+1 , " 11 
A=A- 1 : PR I NTS A, CHR* ( 1 28 ): PRINTS A+l, " " : G0T088 
IFA*< >" "THENB*=A*: A=A-40: PRINTSA, CHR* ( 128) : PRINTSA+40, 1 
A=A-40: PRINTSA, CHR* ( 128) :PRINTSA+40, " " : 60T088 
IFA*< >" "THENB*=A*: A=A+40: PRINTSA, CHR* ( 128) : PRINTSA-40, ' 

A=A+40: PRINTSA, CHR* ( 128) : PRINTSA— 40, " " : G0T088 
IFA*< >" "THENB*=A*: PRINTSA, CHR* ( 128) : G0T088 
PR I NTS A , CHR* ( 1 28 ) : G0T088 

B*="3" : PRINTS A+80, CHR* ( 128) : PRINTSA, " “ : A=A+BO: G0T088 
IFA>598THENPRINT SA, "ö“ : A=A-40: GOTO 145 
IFA=3970RA=4760RA<80THENUN7.=598: G0T0143 
RETURN 

C0L0UR5: IFA>598THEN145 

I FA=43 1 ORA=3920R A< 80THENUN7.=598 : GOTO 1 43 
C I =C 1 + 1 I FC 1 >4THENC 1 = 1 

PRINTSC— CI *40, "H " : IFC1=1THENPRINTSC-160, " RETURN 
PRINTSC— ( (Cl-1 ) *40) , " “ : C0L0UR4: RETURN 
I FA=C— C 1 * 400RA >500THEN 1 45 
I F A< 35 1 JHENUN=5 1 O : GOTO 1 43 
C0L0UR5: C1=C1+1 : IFC1 >4THENC1=1 
: PRINTSC-Cl *40, "H": IFC1=1THENPRINTSC-160, 


90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 
101 
102 
103. 

104 

105 

106 

107 

108 
109 
HO 
111 
ii: 


: G0T088 


i GOTOBB 


G0T0B8 


CO 




:C0L0UR4: RETURN 


113 PRINTSC- ( (Cl-1) *40) , " " : COLOUR4: RETURN 

114 IFA >4250RA=422THEN 1 45 

115 IFA<345THENUN=425: G0T0143 

116 RETURN 

1 1 7 UN=600 : COLOURB : I F A >6000RA=DTHEN 1 45 

118 IFA=3400RA<BOTHE:N143 

119 IFA<DTHENPRINT SD— 40, CHR* ( 129) : PRINTSD, " " : D=D-40: COLOUR4: RETURN 

120 IFA7D+39THENPRINTSD+40, CHR* ( 129) : PRINTSD, " ":D=D+40: I FD=ATHEN 1 45ELS 
ECDL0UR4: RETURN 

121 IFD=ATHEN145ELSEPRINTSD+1 , CHR* (129) : PRINTSD, " D=D+1 : IFD=ATHEN 1 45E 

LSEC0L0UR4: RETURN 

122 I F A >6000RA=6 1 1 0RA=57 1 0RA=53 1 THEN 1 45 

123 IFA<80THEN143 

124 C0L0UR5: E=E+1 : IFE>7THEN125ELSEPRINTS607-E*40, " L -" : PRINTS607“ (E-l ) *40 
, " ":C0L0,UR4: RETURN 

125 E=1:PRINT§607-E*40, “ : PRINTS327, " ": C0L0UR4: RETURN 

126 I FA< 800R A >6000R A=607— E * 40THEN 1 45 

127 C0L0UR5: E=E+1 : IFE>7THEN128ELSEPRINTS607-E*40, " : PRINTS607- (E-l ) *40 

, " " : COLOUR4: RETURN 7" 

128 E=1 : PRINTS567, " : PRINTS327, " " : C0L0UR4: RETURN 

129 PRINTS607— E*40, " " : G0SUB132: G0SUB136: IFAC286THEN140 

130 IFA/ 2=F I X ( A / 2 ) OR A >600THEN 145 

131 RETURN 


GENIE DATA 37 


132 C0L0UR1: IFF6=F4THENF6=F5: GOTO 134 

133 F6=F4 ; 

134 PRINTSF3,CHR*(F6> 

135 C0L0UR4: RETURN 

136 I FA=F3+ 1 0RA=F3— 40THEN 1 39 

137 I F A=F3THEN 1 45 

138 RETURN 

139 I FB$= "4 " THEN 1 75ELSERETURN 

140 I FA< 80THENUN=280 : GOTO 1 43 

141 I FA=820RA= 1 220R A= 1 620R A=2020R A=2420RA=282THENUN=322 : GOTO 1 43 

142 RETURN 

143 A=A+40: IFA MJNTHENA=A-40: GOTO 145 

144 PRINT SA, CHR$ ( 1 28) : PRINT f A— 40, " " : GOTO 1 43: REM — 

1 45 C0L0UR3 : PRINTSA, "e" : UN= 1 : F0F<UN= 1 T08 : NEXTUN : C0L0UR5 : PR I NT § A , " : UN= 1 
: FORUN=1TOB: NEXTUN: UN=1 : C0L0UR3: PRINTSA, : F0RUN=1 T06: NEXTUN: UN=1 : COLO 
UR5: PRINTSA, "l”: PRINTSA, "e": PRINTSA, "-r" 

1 46 FORUN= 1 TO 1 0 : COLOURUN: PRJ NTS A- 1 , ,, 4 1 ' : PRINTSA, " " : PR I NTS A+ 1 , " n " : PR I NTS 

A-40, " o " : PR I NT S A+40 , "Ä" : PRINTSA, PRINTSA- 1, " 11 : PRINTS A+l , " " : PRINTSA 

-40," " : PRINT SA+40, " ": NEXTUN: UN= 1 

147 C0L0UR4: PRINTSA, s F0RUN=1T09: NEXTUN: UN=1 : COLOUR3: PRINTSA, "4 “ : FORU 

N=1T05: NEXTUN: UN=1: PRINTSA, " : F0RUN=lTO3: NEXTUN: UN=1 : C0L0UR4: PRINTSA, " 

" : F0RUN=1T06: NEXTUN: UN=1 : C0L0UR5: PRINTSA, " L " : FORUN=1T09: NEXTUN: PRINTSA 
, " M : G0T0228: REM — — 

148 REM VULKANEXPLOSION 

149 AA$= ,i r": Z 1=500 

15Ö IFV1=0THENV 1=3: GOTO 155 

151 C0L0UR1:PRINTS725, "ACHTUNG, beim Ausbruch -f ael 1 1 " : PRINTS765, "di e St 
euerung aus ! ! " : IFV1 =3THENV1 =4: PRINTSF3, " ":PRINTSD," " : G0SUB168: G0SUB1 
71 : GOTO 155 

152 I FV 1 =4THEN V 1 =8 : GOSUB 1 74 : GOTO 1 55 

153 IFV1=8THENV 1=5: GOTO 155 

154 GOTO 1 64 

155 COLOURV 1 : F0RV2=0T0 1 1 ; 

156 PR I NT § 567— V2* 40 , "e" S" 

157 NEXTV2: FORV3=OTÖl O ( C °*-0//ia^ 

158 PR I NTS486— V3#40 , "e" : PRINTS 488- V3 *40, "e“ “1 

159 NEXTV3: F0RV4=0T08 ^k, . S 

160 PRINTS405-V4*40, "ä" : PRINTS409-V4*40, "ä" 

161 NEXTV4; F0RV5=0T04 

162 PRINTS364— V5*40, "£" : PRINTS370-V5*40, "£" 

163 NEXTV5: GOTO 150 , 

164 PRINTS567, " " : PRINTS527, " ": PRINTS 486, " " : PRINTS446, " 

165 PRINTS405, " ": PRINTS 364, " PRINTS324, " ":PRINTS284 

, " ":PRINTS244, " " : PRINTS204, " ": PRINTS 164, " ": 

PRINTS 124, " " : PRINTS84, " 

166 I FB< =4 ANDB9=0THEN 1 

167 GOTO 183 

1 68 I FB >4ANDB9< =2THEN 1 45 

169 C0L0UR4: IFB<=4ANDB9=0THENPRINTSA, CHR$ ( 134) : GOTO 180 : 

170 RETURN }i 

171 PRINTS283, " " : C0L0UR3: PRINTS321 , " f " 

172 PRINTS362, "■ " : PRINTS402, " ll F " : PRINTS531 , " " : PRINTS57 1 , " "rCOLOUR 

8: PRINT5572, "f " : PRINTS610, " " 

173 RETURN 

174 C0L0UR3: PRINTS320, " " : PRINTS360, " " : PRINTS 400, " ":PRINT§44 

O, "exö " : PRINTS480, ” «n " : PRINTS520, M x£l»f " : PRINTS 560, "E+fe " : PRINTS572, 
" " : C0L0UR8: PRI NTS613, " : RETURN: REM— — — — — — 

175 REM AUFNAHME DES PASSAGIERS 

176 Z 1=Z 1 — 1 : F0RK=0T03: NEXTK: PRINTSF3, " " : Z1=Z 1-1 : F0RK1=0T03: NEXTK1 : Z 1=Z 
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1-1 s PRINTSA, CHR* < 134) ; F0RK2=0T02: NEXTK2: PRINTSA, " PRINTSA-40, CHR* < 134 

> :Zl=Zl-liA=A-40sB*= ,, 4" 

177 C0L0UR1 ; PR INT §727, "SCHNELL ZURUECK ! -DER VULKAN" : PRINTS767, "EXPLODIE 

RT GLEICH " : C0L0UR4 

178 F*= "ROTORBLATT IN SILBER" 

179 GOTO 181 

180 PR INT §725, E*: F0REL=725+LEN (E*> T0754: PRINTSEL, " " : NEXTEL: EL=0: PRINTS 

765, "Du musst noch viel ueben ! ! " : G0SUB247: PRINTS877, " " : G0T030: REM- 

181 REM RUECKFLUG ; ; 

182 B9-1 

183 REM nach Vulkanausbruch 

.184 B$= ,, 4" 

185 I FA/ 1 0=F IX <A/10) THEN I FA< >A 1 -40ANDA< >A 1 ANDA< >A 1 +40ANDA< >A 1 +80THENB9= 
B9+1 ' 

186 QNB9G0SUB199, 210,214,219 

1 87 Z 1 =Z 1 - 1 : I FZ 1 =OTHEN 1 48ELSE I F Z 1 < 1 OOTHENPR I NT § 1 6 , Z 1 

1B8 A*= INKEY*: IFA*=" "THEN189ELSE0NVAL <A*) GOTO 190, 192,194.196,198 

189 ONVAL (B*) GOTO 191 , 193, 195, 197 , 198 

190 B*=A*: PRINTSA, " " : A=Ä+1 : PRINTSA, CHR* ( 134) : GOTO 185 

191 PRINTSA, " " : A=A+1 : PRINT SA, CHR* < 134) : G0T0185 

192 B*=A*: PRINTSA, " " : A1=A: A=A-40: PRINTSA, CHR* ( 134 ): G0T0185 

193 PRINTSA, " " : Al =A: A=A-40: PRINTSA, CHR* (134) : GOTO 1 85 

194 B*=A*:PRINTSA, A1=A: A=A+40: PRINTSA, CHR* < 134) : G0T0185 

195 PRINTSA, " Al=A:A=A+40: PRINTSA, CHR* ( 134) :G0T0185 

196 B*=A*: PRINTSA, CHR* < 134) : A1=A: G0T0185 

197 PRINTSA, CHR*< 134) : Al =A: G0TO185 

198 B*="3": PRINTSA, " " : A1%=A: A=A+80: PRINTSA, CHR* ( 134) : GDTQ1S5 

199 IFAC80THEN143 l 

200 IFAX6Ö0THEN145 

201 I FA< DTHEN2Ö2ELSE205 

202 IFA<=D— 40THENPRINTSD, " " : D=D— 40: PRINTSD, CHR* ( 1 29) : G0T0208 

203 IFA- (D-40) <D-ATHENPRINTSD, " D=D-40: PRINTSD, CHR* ( 129) : G0T0208 

204 PRINTSD, " D=D-1 : PRINTSD, CHR* < 129) : G0T0208 

205 IFA>=D+40THENPRINTSD, " ": D=D+40: PRINTSD, CHR* ( 129) : G0T0208 

206 IFA-D< (D+40) -ATHENPRINTSD, " ": D=D+1 : PRINTSD, CHR* ( 129) : G0T0208 

207 PRINTSD7., " " : D7.=D7.+40: PRINTSD7., CHR* < 129) 

208 I FD=ATHEN 1 45 

209 RETURN 

210 IFA<80THEN143 

21 1 I F A=57 1 0RA=53 1 ORA 600THEN 1 4! 

212 G0SUB2O1 

213 RETURN 

214 I F A< 350THEN2 1 5ELSE2 1 7 

215 I F A< =344THENUN=4 19: GOTO 1 43 

216 UN=499: GOTO 143 

217 IFA>5000RA=4220RA=4610RA=4630RA=4640RA=C+C1*40THEN145 

218 RETURN 

219 I FA=3500RA=3920RA=3970RA=43 1 OR A=4760R A< 80THENUN=599 : GOTO 1 43 

220 IFA=5100RA>5980RA=559THEN145 

221 IFRIGHT* (STR* (A) , 1 ) ="9"THENUN=559: G0T0143 

222 I FA=598ANDB*= " 4 " THEN224 

223 RETURN: REM- — — — 

224 REM ENDE TEIL1 

225 G*=" ROTORBLATT am BANDE" 

226 F*=" ROTORBLATT in SILBER" 

227 C0L0UR3:PRINT§725, "Sie erhalten das: ": F0RA5=1T040: PRINT 

S765, F*; " " : NEXTA5: A5=0: F0RA5=1T050: PRINT§765, G*; " 

: NEXTA5: G0T0244: REM — — ■, ; : — 

228 REM ENDE/NEGATIV 
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263 F0RK6= 1 TD8 : PR I NT § 1 60+ ( K6— 1 ) * 4 1 , " " : PRINTS 160+K6*41 , CHR* ( 134) : NEXTK6 
: C0LQUR3: PRINTS725, "PAROLE"; ; INPUTK8: I FK8=KTHENH$= " BRAEGEN in BCHUESSEL 

; EP=EP+5 : G0T0266 

264 PRINTS725, "Sie haben noch eine Chance PRINTS765, "Wie heisst der 

Mann, den Si e" : G0SUB247: PRINTS725, "eben abgehol t haben ? ":PRINT§765, 

; INPUTK«: IFK*="VULKANO"THEN265ELSEA=488: G0T0145 

265 EP=EP+2 

266 PRINTS34, EP: F0RK7=1T0B: F0RK8=1T09: NEXTKB: K8=0: PRINTS488+K7-1 , " " : PR 
INTS488+K7, CHR*< 134) : NEXTK7 

267 PR INT §496, " " : PRINT §536, CHR$ ( 134) : PRINT§536, " " : PRINTS576, CHR* < 134) 

: REM- / 

268 REM FALLSCHIRMSPRINGER 

269 SP=0: EB=0: SK=32 

270 PRINTS725, "HALLO, 47 1 1 - " : PRINTS765, "wi 1 1 kommen an Bord !": 

G0SUB247: PRINTS725, "Wir warten hier auf den" : PRINT§765, "Rest der Mannsc 
haf t . " : G0SUB247 : PRINTS725, "Die Leute werden jeden Mo— " : PRINTS765, "ment 
mit dem Fallschirm ueber " : GOSUB247 

271 PRINTS725, "uns einzeln abspri ngen. Si e, 47" : PRINTS765, " 1 1 koennen die 
Springer ueber ": G0SUB247: PRINTS725, "di e Funkbefehle -1- u. -2-":PRINT§ 

765, "nach links/rechts di ri gi er en ": G0SUB247: PRINT §725, "Denken Sie daran 

272 PRINTS877, "W" : G0SUB247 : PRINT§725, "Ein Springer kann nicht ueber-" :P 

RINT§765, "all ohne Verletzung 1 anden ! " : PRINT§877, " " : PRINTS 1, "SPRINGER: 
" : PRINTS 14, "Einsber. : " : REM 

273 REM SPRINGER CHR*<135> / CHR*(136> 

274 REM 

275 POKE&HF 438 , 56 

276 P0KE&HF439, 124 

277 POKE&HF43A, 198 

278 P0KE&HF43B, 130 

279 P0KE&HF43C, 16 : P0KE&HF444, 16 

280 P0KE&HF43D, 56 : P0KE&HF445, 56 

281 P0KE&HF43E, 16 : P0KE&HF446, 1 6 

282 P0KE&HF 43F , 40 : P0KE&HF447, 48: REM 

283 REM ABSPRUNG/STEUERUNG 

284 F0RK9=1T0200: NEXTK9 

285 PRINT§725, " 

286 L1=0 

287 L2=0 : L 1 =L 1+1:1 FL 1 >2THEN329 

288 PR I NTS 1 0, SK : PR I NT §23 , EB : L2=L2+ 1 : I FL2> 1 6THEN327 

289 C0LDURL2: A=RND (20) +50: L3=A 

290 PRINTSA, CHR* (135) 

29 1 L4=RND ( 3 > : L5=RND ( 2 ) 

292 B$= INKEY* 

293 IFB*< >" "THENA*=B$ 

294 I FA >240 ANDB*= " " THEN A*= " 3 " . 

295 IFA >240THEN303 

296 0NL5G0T0297, 303 

297 RANDQMs L6=RND < 2 > : L7=0 

298 0NL6G0T0299, 301 

299 L7=L7+1: IFL7>L6THEN291ELSEA=A- 1 : G0SUB313: PRINTSL3, " ": PRINTSA, CHR* ( 
135) :L3=A 

300 G0T0299 

301 L7=L7+1 : I FL7 >L6THEN29 1 ELSEA=A+ 1 : G0SUB313: PRINTSL3, " " : PRINTSA, CHR$ ( 
135) :L3=A 

302 G0T0301 

303 REM RL R RR 

304 RANDOM : L6=RND (3 ): L7=0 

305 IFA*=""THENL5=RND<3) : ONL5G0TO3O7, 309, 31 1 
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306 ONVAL ( A$ ) G0T0307 , 309, 311 

307 L7-L7+1: IFL7 >L6THEN291 ELSEA=A+39: G0SUB313: PRINTSL3, " " : PRINTSA, CHR* 
<135) :L3=A 

308 GOTO307 

309 L?=L7+1: IFL7>L6THEN291ELSEA=A+41 : G0SUB313: PRTNTSL3, " ": PRINTSA, CHR* 
( 135) : L3=A ■ 

310 GDT0309 

311 A= A+40 : G0SUB3 13: PR INT §L3 , PRINTSA, CHR*< 135) 

312 60T0291 

313 L8=FI X (A/40) : IFF I X (L3/40) =L3/ 400R (L3+1 ) /40=FI X ( (L3+ 1 ) /40) THEN322 

314 LA=A-L8*40: IFL8< 13THENRETURN 

315 0NL8— 12G0T0316, 317, 319, 321 

316 IFLA=19THEN323ELSERETURN 

3 1 7 I FL A= 1 60RLA= 1 90RLA=20THEN323 

318 I FL A= 1 80RL A=2 1 THEN325ELSERETURN 

319 IFLA>15ANDLA<24THEN323 

320 IFLA= 1 50RL A=24THEN325ELSERETURN 

321 I FLA= 1 50RLA=24THEN323ELS£324 

322 SK=SK-1 : SP=SP+1 : C0L0UR3: PRINT§725, " 

bgetri eben ! " : PRINTSL3, : G0T0288 

323 SK=SK-1 : SP=SP+1 : COLOÜR3: PRINT§725, " 
ndung verletzt ! ":PRINT§L3, M “ : G0T0288 

324 SK=SK- 1 : SP=SP+ 1 : PR I NT§1_3 , " " : PRINTSA, CHR$ ( 1 35) : FQRL9=1T010: NEXTL9: L 
9=0: PRINTSA, " P' : F0RL9=1T010: NEXTL9: L9=0: C0L0UR6: PRINTSA, " h“ : C0L0UR3:PRI 
NTS726, "Springer "; SP: PRINTS765, "gewassert - Er kael tung " : G0T0288 

325 SK=SK- 1 : SP=SP+ 1 : F'R I NT §L3 , " " : PRINT §A, CHR$ (135) : F0RL9= 1 TO 1 5 : NEXTL9 : L 

9=0 : PR I NT§ A , “ H* : F0RL9= 1 T040 : NEXTL9 : L9=0 : PR I NT§ A , CHR* <136): F0RL9= 1 T050 : N 
EXTL9: L 9=0: PRINTSA, " " : CÜL0UR8: PRINTS725, " Springer " ; SP: PRINTS765, " 
EINSATZBEREIT ^ " : EB=EB+ 1 : EF-EP+ 1 

326 PR I NT § 34 , EP : G0T0288 

327 L2=0 

328 GDT0287 

329 PRINTSO," " : C0LÜUR1 : PRINT §725, " 47 11 , S 

ie haben " : PRINTS765. EB; "Maenner einsatzbereit 1 " : GOSUB247: 0N1+FI X <E 
B/ 1 0 > G0T0330 ,331, 332 , 333 

330 14= "TASSE mit SPRUNG" :G0T0334 

331 1 4= " SCHUESSELSPRUNG GOLD" : G0T0334 

332 I$=" ZIELKREUZ GOLD" : EP=EP+5: PRINTS34, EP: G0T0334 

333 14= "ADLER m. DIAMANTEN" : EP=EP+10: PRINTS34, EP: G0T0334 

334 REM RAKETENBOOT/MINEN 

335 REM B00T1 < 137) /B00T2 ( 138) /MINE < 139) 

336 POKE&HF 44C , 1 2 : P0KE&HF450 , 12: P0KE&HF45E, 8 

337 P0KE&HF44D, 14: P0KE&HF451 , 14: P0KE&HF45F, 28 

338 P0KE&HF44E, 255: F'0KE&HF452, 255 

339 P0KE&HF44F , 254 : P0KE&HF453 , 254 : REM— 

340 REM FAHRT IN SEICHTE GEWAESSER 

341 PRINTS877, " " : C0LDUR1 : PRINTS725, " Wi r laufen jetzt i n " : PRINTS765, "ru 
higere Gewaesser ! " : G0SUB342: M1=0: M2=0: M3=0: M4=0: M5=0: M6=0: M7=0: M8=0: M9 
=0 : EP=EP— 3 : G0T0343 

342 M1=0: F0RMl=OT04O: NEXTM1 : RETURN 

343 C0L0UR6: PRINT §670, " " : PRINTS679, " " : G0SUB342 : PR I NTS675 , " ; “ : G0SUB342 
: PRINT §669, " " : G0SUB342: PRINTS665. " " : G0SUB342: PR INT §653, " " : G0SUB342: P 
RI NT §647 , " " : G0SUB342: PRINT&642, " " : G0SUB342: PR INT §671 , " " 

344 PRINTS677, " " : G0SUB342: PRINT§673, : G0SUB342: PRINT§667, " " : G0SUB34 
2: PRINTS 650, " " : G0SUB342 : PR I NT § 645 , " " : G0SUB342: PRINTS678, " ":PRINT§674 

" : GOSUB342: PRINT §676, " ":PRINT§668, G0SÜB342: PRINT§666, " ": PRINT 

§651, " " : GQSUB342 : PR I NT §648 , " " : G0SÜB342 

345 PRINTI672, " " : PR INTS652, " " : PRINTS649, " " : GGSUB342 : PR I NT §654 , " ":PR 
INT §646, " " : G0SUB342 : PR INT §640 , " " : PRINTS643, " " : G0SUB342: PRINTS644, " " 
: PRINT §641 , " " 



Springer " ; SP: PRINTS765, " ist a 
Springer " ; SP: PRINTS765, "bei La 
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346 G0LÜUR1 : PRINTS 725, "Wir setzen Sie, 4711, " : PRINTS765, "jetzt mit 

dem RAKETEN— BOOT ab . " : GOSUB247: PRINTS725, " Wahrschei nl i ch ist die Kueste 
" : PRINTS765, " vermi nt ! ! " : G0SUB247: PRINTS725, "Mi t den Tasten -2/3- koenne 
n" : PRINTS765, "Si e kurz- und weit springen." 

347 G0SUB247: PRINTS737, “VIEL" : PRINTS772, "G L U E C K ! ! " : GOSUB 247 

34B COLOUR2:PRINT§665,CHR* (137> : F0RM2=665T0678: G0SUB342: PRINTSM2, " " : PR 
INTSM2+1,CHR$(137> ; NEXTM2 

349 C0L0UR6: PRINTSM2, " PRINTS535, " " : PRINTS575, " 

" : PRINT§615, " " : PR1NTS655, " “ : C0L0UR1 : PRINTS725, E 

denk " : PRINTS765 , "an die M INEN !! " : G0SUB247: PRINTS877, " " 

350 EP=EP+3; PRINTS34, EP: M4=M4+1 : I FM4< 7THEN35 1 ELSE I FZ S= 1 THEN37 OELSE I FM4 > 
9THEN370ELSEPRINTSM9, " ": M9=RND<20> :M9=645+M9: PRINTSM9, OHR* (139) 

351 M8=0: PRINTSA, " .":A=639:PRINT§M5," ":PRINTSM6," " : PRINTSM7, " " : M5=65 
0+RND (5) : RANDOM: M6=660+RND (5) : M7=669+RND (2) : COLOUR3: PRINTSM5, CHR* ( 139) : 
PR I NT SM6 , CHR$ ( 1 39 ) : PR INT SM7 , CHR$ ( 1 39 ) : COLOUR2 

352 A$=INKEY*: IFA$=" M TKENA$=" 1 " 

353 ONVAL ( A$ ) G0T0354 , 355 , 357 

354 PRINTSA, '■ " : A=A+1 : PRINTSA, CHR$ ( 137) : GOSUB 360:G0T0352 

355 PRINTSA," “: A=A+1: PRINTSA, CHR* ( 138) : GOSUB 360: PRINTSA, " ":A=A-39:PR 
INTSA, CHR*( 137) : GOSUB 360: PRINTSA, " " : A=A+1 : PRINTSA, CHR$ ( 138) : GOSUB 360 
: PRINTSA," ": A=A+41 : PRINTSA, OHR* ( 137) : GDSUB 360: PRINTSA, " ": A=A+1 : PRINT 
SA , CHR* (138): GOSUB 360, 

356 G0T0352 

357 PRINTSA," ": A=A+1 : PRINTSA, CHR* ( 13B) : GOSUB 360: PRINTSA, " " : A=A-39: PR 

INTSA, CHR*( 137) : GOSUB 360: PRINTSA, " A=A+1 : PRINTSA, CHR$ ( 138) : GOSUB 360 

: PRINTSA," A=A-39: PRINTSA, CHR$ ( 137) : GOSUB 360: PRINTSA, " " : A=A+1 : PRINT 
SA, CHR$ ( 138) : GOSUB 360 

358 PRINTSA, " A=A-39: PRINTSA, CHR$ < 137 ): GOSUB 360: PRINTSA, " ":A=A+41:P 

RINTSA, CHR$ ( 138) : GOSUB 360:PRINTSA, " ": A=A+1 :PRINTSA, CHR* ( 137) : G0SUB360 
: PRINTSA, " ": A=A+41 : PRINTSA, CHR* ( 138) : GOSUB 360: PRINTSA, " " :A=A+1 : PRINT 
SA, CHR$ ( 137) .- GOSUB 360: PRINTSA, " " 

359 A=A+41 : PRINTSA, CHR$ < 138) : GOSUB 360: G0T0352: REM — : 


360 REM UEBERPRUEFUNG (MINEN) 

361 IFFIX (A/10)=A/10THENM8=M8+1 

362 0NM8G0T0363, 364, 365, 366 

363 IFA=M9THEN367ELSERETURN 

364 I FA=M50RA=M9THEN3£>7 1 ELSERETURN 

365 I FA=M60RA=M9THEN367ELSERETURN 

366 IFA=M70RA=M9THEN367ELSE IFFIX ( (A+l > /40) = (A+l ) /40THEN350ELSERETURN 

367 I FM4< =2THEN 1 45ELSEI FM4< =4THEN J $= " KNALL in SILBER“ : GOTO 1 45 

368 IFM4<=6THENJ$=" KNALL in GOLD" : GOTO 145 

369 J$= "DI AMANT— MINE" : GOTO 1 45 

370 J$="DI AMANT-MINE": REM WETTLAUF — — 

371 PRINTSA, " " : PRINTSM5, " " : PRINTSM6, " ":PRINTSM7, " " : PRINTSM9, " " : COL 
0UR8; PRINTS648, "EEEEEEEEEEEEEEEEEEEEEEEEEEÖee" 

372 C0L0UR3: PRINTS62Q+ZS, " ö " : C0L0UR1 : PRINTS725, "Si e erreichen bald die 
letzte" :PRINT§765, "Station Ihres Weges : " : G0SUB247 : PR I NTS725 , "Hamfri-Bog 
artia - die erste" : PR INTS765, "Insel ALKAPONI ENS ! ! " : G0SUB247 

373 A=0: C0L0UR2: F0RA=639T0646: PRINTSA, " " : PRINTSA+I , CHR* (137) : GOSUB342: 

NEXTA: COLOURB: PRINTS648, "e" : REM—— — — — 

374 REM WETTLAUF 

375 REM LAEUFER LLM40) LR (141) 

376 P0KE&HF460, 32: P0KE&HF468, 4 

377 P0KE&HF461,32:P0KEScHF469,4 

378 P0KE&HF462, 116: PQKE&HF46A , 15 

379 P0KE&HF463 , 232 : P0KE&HF46B , 4 

380 P0KE&HF464 , 32 : P0KE&HF46C , 6 

381 P0KE&HF465, 32: P0KE&HF46D, 31 
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382 P0KE&HF466 , 80 : P0KE&HF46E , 4 

383 P0KE&HF467, 136: P0KE&HF46F, 4 

384 REM LAEUFER RR (142) RL(143) 

385 P0KE&HF470 , 4 : PÖKE&HF478 , 32 

386 P0KE&HF47 1,4: P0KE&HF479, 32 ^ 

387 P0KE&HF472, 46: POKE&HF47A, 240 ( C 0lr>^\ 

388 P0KE&HF473, 23: P0KE&HF478, 32 L GeJ? 0 * ) 

389 P0KE&HF474 , 4 : P0KE&HF47C , 96 WM J 

390 P0KE&HF475 , 4 : P0KE&HF47D , 248 T 

391 P0KE&HF476 ,10: PQKE&HF47E , 32 

392 P0KE&HF477, 17: P0KE&HF47F, 32: REM — ? — - 

393 PR INT §632, CHR* (142) : PRINTS 725, "Lau-fen Sie so schnell es geht": PRINT 
§765, "zum Bunker (Tastenl/2) ! " : GQSUB247: PRINTS725, "Die Wache wird versuc 
hen, ": PRINTS765, " Ihnen zuvorzukommen — " : G0SUB247: PRINT§725, "Fal 1 s Sie e 
s nicht schaffen," 

394 PRINTS765, "versuchen Sie es erneut !": G0SUB247: : PRINTS725, "Mel den Si 
e sich aus dem Bunker ": PRINTS765, "ueber Kanal 4171 . " : G0SUB247: PRINTS87 
7," ” : PR INT §735, "TASTEN: " : PRINTS777, " i/2" 

395 F0RN9=0T0250:NEXTN9:N9=0:PRINT§735, " " : PRINTS777, " 

396 PRINT §608, CHR* ( 140) : N=0: N1=60B: N2=620+ZS: N3=632: N4=0: N5=0: N6=0: N7=0 
:N8=0:NR=0 

397 A*= INKEY*: IFA*< >" 1 "THEN397 

398 A*=INKEY*: IFA*=" "ORFI X (NR/3) =NR/3THEN403 

399 IFVAL < A*) < >1 ANDVAL ( A*) < >2THEN398 

400 ONVAL ( A*) G0T0401 , 402 ' - 

40 1 I FN5 >1 THEN398ELSEPR I NTSN 1 , CHR* ( 141): N5=N5+ 1 : N6=0: NR=NR+ 1 G0T039B 

402 IFN6>1THEN398ELSEPRINT§N1 , " " : N1=N1+1: G05UB404: PRINTSN1 , CHR* ( 140) : N 
6=N6+1 : N5— 0: G0T0398 

403 NR=NR+1:PRINT§N3,CHR*(143) :PRINT§N3, " " : N3=N3-1 : G0SUB404: PRINT§N3, C 
HR* (142) : G0T0398 

404 I FN 1 =N20RN3=N2THEN405ELSERETURN 

405 I FN 1 =N2THEN408 

406 F0RN=N 1 T0608STEP— 1 : PR INTSN , CHR* (142): G0SUB407 : PR I NT§ N , CHR* (143) : GOS 
UB407 : PR I NT§N , " " : NEXTN : RR I NT§608 , CHR* (140) : F0RN=N3+ 1 T0632 : PR I NT§N , CHR* 
(140) : G0SUB407: PR INTSN, CHR* ( 141) :60SUB407: PR INTSN, " ": NEXTN: PRINTS632, C 
HR* ( 1 42) : N9=N9+2 : EP=EP-N9 : PR I NTS34 ^ EP : GÜT0396 

407 .NL=0: F0RNL=0TQ25: NEXTNL: RETURN 

408 PRINTSN3, CHR* ( 130) : IFN9<=4THENEP=EP+ (N3-N2+10) : PRINTS34, EP: G0T0410 

409 EP=EP+(FIX ( (N3-N2) /2)+5> : PRINT§34,EP 

410 PRINT§734, "KANAL: : INPUT A: IFA< >4171 THEN41 0: REM— 

411 REM RAKETE CHR* ( 144) 

412 P0KE&HF482, 2: P0KE&HF483, 31 

4 1 3 PQKE&HF 484 , 255 : P0KE?-<HF485 , 3 1 

414 POKE&HF 4B6 , 2 

415 GOLDURI : PRINTS725, “Bl asi us von Alkaponien ver-" : PRINTS765, "sucht Ra 
goulien zu vernichten" : G0SUB247: PRINT§725, "Er laesst seine .letzten" :PRI 
NTS765, "Raketen auf uns abfeuern ! ! ":G0SUB247 

416 PRINT §725, "Schl agen SIE ihn mit seinen" : PRINTS765, "eigenen Waffen. " 
: G0SUB247 : PR I NT §725 , "Schiessen Sie die Raketen ": PRINTS765, "aus dem Bank 
er heraus ab M " : G0SUB247: PRINT§725, "Di e Laser-Kanone des" : PRINTS765, "B 
unkers laesst sich ueber ": G0SUB247 

417 PRINTS725, "Die Tasten 1-9 steuern " : G0SUB247 : CLS: PR INT 3 760, "leeiilll 
EEEEEEEEEEEEE EEEEEEEEEeiEgiEEEEi " : PR 1 NT 1800 , "EEEEE^ lEE— 2 enM I T TE S 3eeF 
8 ee 9*eeIeeeI " : PR I NT §840 , " eeeeeeeeee FEUER : 4,5,6, 7<tEEEEEEEEEEEEE " ; " eee 
lEEEEEEEElEEEElEilEEiEEliEieliEllElEiE" 

418 A=380: B*= "3" : G0T0420 

419 03=1 

420 02=02+1 : IF02>ZS*6THEN442ELSEEP=EP+03: PRINT §28, "PUNKTE: " ; EP: 0=RND (2) 
: 0=279+0*40: PRINTSA, ,l +" : PRINTSO, CHR* < 144) 
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42 1 RANDOM : C=RND ( 7 ) : ONCGOT0422 , 422 , 422 , 423 , 423 , 424 , 426 

422 PRINTSO, " IF0/40=FI X (0/40) THEN420ELSE0=0-1 : G0SUB428: PRINTSO, CHR* ( 

144) : G0T0421 

423 PRINTSO," " : G0SUB428: PRINTSO, CHR® ( 1 44) : G0T0421 

424 PRINTSoi, " 0=0-40: IF0<0THEND=0+40 

425 G0SUB428: PRINTSO, CHR® ( 144 ) :GOT0421 

426 PRINTSO," ": 0=0+40: I FD >760THEN0=0-40 

427 G0SUB428: PRINTSO, CHR® ( 144) : G0T0421 

428 A®= INKEY®: IFA®=" "THENA®=B® 

429 ONVAL ( A®> G0T0430, 432, 434, 435, 435, 435, 435, 436, 438 

430 B®=" 1 " : IFA/40=FI X ( A/40) THENPRINT SA, "+" : RETUI 

431 PRINTSA, " ":A=A-1 : PRINTSA, "+": RETURN 

432 B®="2": IFA<40THENPRINTSA, ,, + ": RETURN 

433 PRINTSA, " ": A=A-40: PRINTS A, " + ": RETURN 

434 B*= u 3" : PRINTSA, " ": A=3B0: PRINTSA, "+": RETURN 

435 B®="4": PRINTSA, 'T": IFA=0THEN440ELSERETURN 

436 B®="8": IFA>720THENPRINTSA, "+": RETURN 

437 PRINTSA," ": A=A+40: PRINTSA, ,, + " : RETURN 

438 B®="9": IF (A+l ) /40=FIX ( (A+l ) /40) THENPRINTSA, "+" : RETURN 

439 PRINTSA, " " : A=A+1: PRINTS A, "+": RETURN 

440 PRINTSA, "i" : G0SUB441 : PRINTSA, : G0SUB441 : F0R01=1T015: PRINTSA, " " : P 
RINTSA, " ■" : NEXT01 : 01=0: PRINTSA, " f" : G0SUB44 1 : PRINTSA, " ji" : G0SUB44 1 : PR I NT § 
A, "r":G0T0419 

441 FOR01=1T015:NEXT01: 01=0: RETURN 

442 REM SCHLUSS 

443 CLS: C0L0UR8: PRINTS670, " eeeeeeeeee " : C0LQUR2 : PR I NTS669 , CHR® ( 1 37 ) : COLO 
UR3 :PRINTS639, " ö " : C0L0UR6: F0RP=0T02: PRINTS680+P*40, "eeeeeeeeeeeeeeeeeee 
eeeeeeeeeeeeeeeeeeeee" : NEXTP : COLOUR 1 : PRINTS840, "Hervorragend, " ; E®; " , " : P 
RINT"Sie werden gleich abgeholt !" 

444 F0RA=0T013: PRINTSA, CHR® (134) :G05UB441: PRINTSA, " " ; NEXTA: F0RA=13T06 1 
8STEP41 : PRINTSA, CHR® ( 134) : G0SUB441 : PRINTSA, " " : NEXTA: F0RA=628T0638: PRIN 
T5A, CHR® ( 134) : G0SUB441 : PRINTSA, NEXTA 

445 A=A-1 : PRINTSA, CHR® ( 128) : G0SUB441 : PRINTS840, " 

ii 7: •' : 

446 F0RA=638T0105STEP-41: PRINTSA, CHR® (128) :G0SUB441 : PRINTSA, " " : NEXTA 

447 A=105: FDRA=105T080STEP-1; PRINTSA, CHR® (128) : GOSUB441 : PRINTSA, " ":NEX 

TA 

448 PRINTS639," " : PRINT S668, " F0RA=1 19T080STEP-1 : PRINTSA, C 

HR® (128) :G0SUB441: PRINTSA, " " : NEXTA 

449 C0L0UR2: F0RB=4T07 : PRINT S480+B#4G , " eeeeeeeeeeeeeeeeeeeeee" : NEXTB : PRI 
NTS657, "Eööee" 

450 C0L0UR3: PRINTS 125, " ® " : PR I NT S 1 65 , "£“ : PRINTS205, "6" : PRINTS245, "£":PRI 

NTS216, "-.PRINTS256, : PRINTS280, "x ö x' " : PRINTS320 , "ee 

<§ xee " : PRINTS360, "£££ x x ££££": PRINT 5400, "£££ ££ 

££ ££££": PRI NTS440, "££ ££ilii££ ££" 

451 PRINTS480, "££e« e££e» ■ e££e« e££" : PRINTS 520, "££iEi££iEEi££iiE££" : PRINT 

§560, "££e«e££e- «££eI e££" : PRINTS600, "££eee££e e££eee££" 

452 C0L0UR1 : F0RA=159T0135STEP-1 : PRINTSA, CHR® (128) : C0L0UR3: PRINTS217, "» " 
:C0L0UR1:60SUB441: PRINTSA, " " : C0L0UR3: PRINTS217, " ": COLOUR 1 : NEXTA 

453 F0RA=135T0408STEP39: PRINTSA, CHR® (128) :G0SUB407: PRINTSA, " ": NEXTA: CO 
L0UR3 : G0SUB407 : G0SUB407 : A=326 : FOR A=326T0 1 26STEP-40 : PR I NTS A , " ö " : G0SUB407 
: PRINTSA, "Ä": G0SUB407: PRINTSA, " ": NEXTA: PRINTS126, "Ä" : F0RA=127T00STEP~1 

454 A=0: B=0: FQRA=0T0100: NEXTA: C0L0UR6 : PRINTS 15, E$: C0L0UR8: F0RA=80T0B8: P 
RINTSA, "HERZLICHEN" : B=B+2: PRINTSA+29-B, "GLUECKWUNSCH !" :G0SUB407: NEXTA 

455 F0RL9=1T0400: NEXTL9: L9=0 

456 CLS: F0RL9=0T0880STEP+40: C0L0UR7 : PRINTSL9, " fe" : PRINTSL9+39, "k":NEXTL9 

:L9=0 ; ‘ 

457 CQLDUR1 : PRINTS45, "Sie, : C0L0UR3: PRINTE®: COLOUR 1: PRI NTS84, "waren b 

ei Ihrer Mision als" sPRINTS 124, "RAGOULI SCHER AGENT47 11 " : PRINTS 164, "aeu 
sserst erf olgreich als Dank" : PRINTS204, "und Anerkennung verleihe ; ICH“ :P 
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RINTS244, "Ihnen folgende Orden:" 

458 C0L0UR4 : PR I NT S 330 , F* : PR I NT § 370 , G $ : PR I NT § 4 1 0 , H* : PR I NT § 450 , 1$: PRINTS4 
90, J4: COLOUR1 : PRINTS802, D$: PRINTS775, "OTTOKAR von RAGOULIEN " 

459 F0RL9=1T01 000: NEXTL9: L9=0 

460 CLS:C0L0UR2: PRINTS 125, "Sie, ES: PRINT: PRINT" Erreichten ";:C0L 
0UR6: PR INTEP; : C0L0UR2: PRINT" Punkte" : PRINTS721 , "Theoretisch haetten Si 
e hoechstens" : PRINTTAB < 15) Z9+30+ZSB6: PRINT" Punkte erreichen koennen":P 
RINT" Wollen Sie es nochmal versuchen?-J/N" 

461 L9=L9+ 1:1 FL9 > 1 6THENL9=0 : G0T046 1 

462 C0L0URL9: L Z=LZ+40 : IFLZ >=920THENL Z=0 : G0T0462 

463 PRINTSLZ , CHR4 ( 135) : PRINTS959-LZ, CHR* ( 128) : PRINTSLZ, " " : PRINTS959-LZ 

464 A*=INKEY*: I FA$= " J " THEN466ELSE I FA4= " N " THENCLS : PR INTS400 , "O.K. ";E*; " 
das war ’s ! " : PRINT: PRINT: PRINT"Hof f ent 1 ich hat es Dir Spass gemacht ! 

! " : PRINTS940, " " : END 

465 G0T0461 

466 PRINTS881, "Gleicher Schwierigkei tsgrad - ? ": A*= INKEY*: IFA*="J" THE 
N467ELSE I FA*= " N " THEN 1 ELSE466 

467 I FEP >ELTHENEL=EP 

468 GOTO 30 


GRAF I KKONVERT I ERUNG 


o 

= A 

u 

= B 

X 

= c 


= D 

II 

= E 

¥ 

= F 

ä 

= G 

ö 

= H 

ü 

= I 

4 

= J 

N 

= . K 

st, ä 

= - L 

ö 

= M 

ü 

= N 

fi 

= 0 

e 

= P 

e 

= Q 

ü 

= R 

£ 

% S 

n 

= ' T 

f 

= u 


= V 

■ 

- W 

a 

= X 

■ - 

= Y 

■ 

= z 

. E 

= § 

£ 

~ , 

£ 

— » 

ä 

= / 

5 

= — ■ 









w 

= a 

“ 

= b 

. — 

= c 

B 

= : d 

l 

= e 

r 

= f 

f "■ 

= 9 

a. 

= h 

dl 

= i 

■ 

= j 

r 

= k 

■ — 

= I 

“i 

m 

-r 

= n 

k 

= o 

r 

= P 

i. 

= 9 


= r 

-i. 

= s 

H 

- :.t 

+ 

= u 

-w 

= v ■ 

A 

= w 


= X 

W 

= y 

= 

= ■ t / 

; V = 

_ r ’■ 

B - 

= < 

t = 

= > 

§ = 

= ? 





SUPER-BASIC ® Auf Diskette nur DM 99,- 

• Auf Cassette nur DM 89,- 

AUSLAND: 

VOR KASSE Euro-Scheck + DM 5,- Porto 

AN 

Heinz u. Ralf Hiibben 


Compiler 


IHR 

COMPILIERTES 

Nur für 32 K , , , BASIC-PROG RAMM 

der neue Maßstäbe_setztj Smal S schneller 0ff 1ISt r veriJg erlag 

Für DISKETTE und CASSETTE! dSSL 



Postscheckkonto Nr. des Absenders 


Einlieferungsscheln/Lastschriftzettel 


— . „ . _ . , in Felder sind nur ausiutüllen 

Zahlkarte/Postüberweisung | '"Vntoinh*b«aa 5 Formbtanets 

J^wondel (Edautemna s. Bocks.) 
DM , Pt I (DM-Betra' 


Heinz Hübben 
Mühlbachstraße 2 
5429 Marienfels 


^heckkonto Nr. 

072-606 

.heckamt 

<furt/Main 


Empfängerabschnitt 


tilr P05l?Qh{cVkonto Nr. 

242072-606' 

Äbten de» (mit Poatlelttahl) derZahl. 
karte, biw. Postoberwelaung 

TriK Vt f i»* » r . 


DAS IST PEINLICH... und leider bei uns nicht als bezahlt zu verbuchen. - Die meisten der Neu-Abo- 
zahlungen, die mit unserer schon vorgedruckten Zahlkarte von Ihnen bezahlt wurden, haben einen gro- 
ßen Fehler, es fehlt der Absender des Einzahlers. Wie kann man nur so etwas vergessen. 

Diejenigen, die das Glück hatten ein Abo zu bekommen für DWI 48,- (es sind nur sehr wenige) sind hier- 
mit aufgefordert, eine Fotokopie ihres Einzahlungsscheines an uns zu schicken und zwar mit Ihrem 
Absender, damit wir das Abo als bezahlt verbuchen können, sonst erfolgen Mahnungen usw. 

NICHT VERGESSEN, sofort erledigen und vermerken FOTOKOPIE. 

Besten Dank Buchhaltung GENIE DATA. 


Wie Sie sicherlich wissen, gibt es im Handel 
kleine Ubersetzungscomputer, mit denen man 
relativ einfach und relativ schnell Vokabeln 
einer Fremdsprache in das Deutsche und 
zurück übersetzen kann. Sicherlich sind diese 
Geräte recht praktisch, aber der 
Anschaffungspreis ist doch relativ hoch. Aus- 
serdem ist das Vokabular dieser Maschinchen 
ziemlich klein und man ist auf die gekaufte 
Sprache festgelegt. 

In meinem Programm habe ich versucht, 
ein solches elektronisches Wörterbuch zu si- 
mulieren. Dabei bietet das Programm folgende 
Vorteile: Es bietet auf der Diskette wesent- 
lich mehr Platz für Vokabeln, als das bei 
einem gekauften Gerät der Fall ist. Es ist für 
Übersetzungen aus jeder Sprache in jede 
Sprache geeignet und es arbeitet sogar noch 
schneller als mein Testgerät. Das finde ich 


ziemlich bemerkenswert, da mein Programm 
sich die Wörter ja von der Diskette holen 
nriußj während der Taschenübersetzer die 
Wörter aus einem ROM liest. Ein weiterer 
Vorteil ist, daß man nicht umständlich Wort- 
listen durchgehen muß, sondern das zu über- 
setzende Wort einfach eintippen kann. 

Ich habe das Programm für Deutsch-Eng- 
lisch/Englisch- Deutsch konzipiert, aber wie: 
schon gesagt, kann man auch andere Sprachen 
nehmen. Es ist möglich zum Beispiel mit 
Englisch-Italienisch Oder umgekehrt zu arbei- 
ten. 

An Hardware benötigen Sie ein Genie I/II 
oder III oder einen TRS 80 mit mindestens 
einem Diskettenlaufwerk. Als Betriebssystem 
sollte GDOS zur Verfügung stehen. Mein Pro- 
gramm ist für zwei Laufwerke ausgelegt. 
Wenn Sie nur eines haben, müssen Sie Zeile 


46 GENIE DATA 


Postscheckkonto Nr. des Abaendem# . PScHA— Postscheckkonto Nr. des Absenders-— \hecMeHnehmer 


Für, Vermerke des Absenders 


Verwendungszweck 


Ausstellungsdatum 


lür Postscheckkonto Nr. Poslsche.ckan" 

24 2072-606 FFM 

“ r Heinz Hübben 
Mühlbachstraße 2 
, n 5429 Marienfels/Ts. 
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1025 in CMD"NDF 0, Daten" ändern. Vorher Diskette gefunden wird. Im normalfall ist das 
aber eine neue Diskette ein legen! schon der nächste oder übernächste Daten- 

Wie schon gesagt, ist mein Programm satz. Damit ist das Problem der doppelten 
trotz Zugriff auf die Diskette schneller als Benutzung eines Satzes gelöst, 
ein gekauftes Gerät. Das führe ich auf die Die Übersetzung an sich geht so von 
Art und Weise zurück, mit der ich die Voka- statten: 

beln auf der Diskette verwalte; Dazu nun Bei jedem Eintrag eines Wortes wird die 
einige Erklärungen: Satznummer der zugehörigen Übersetzung 

Von jeder eingegebenen Vokabel wird ein mitgespeichert. In unserem Fall erhält also 
Hashcode berechnet. Dieser Hashcode bildet das deutsche Wort die Satznummer des 
sich aus den ersten drei Buchstaben des englischen Wortes und das englische Wort 
Wortes. Dieser Code wird direkt als Satznum- erhält die Satznummer des deutschen Wortes, 
mer für eine Datei mit wahlfreiem Zugriff Wenn also eine Übersetzung gewünscht wird, 
verwendet. Das betreffende Wort wird dann wird der Hashcode des vorhandenen Wortes 
unter dieser Satznummer auf Diskette gespei- gebildet, das Wort wird von der Diskette 
chert. Wenn ich dieses Wort dann später gelesen und damit ist die Satznummer der 
suchen muß, reicht die erneute Berechnung Übersetzung auch bekannt. Jetzt muß nur 
des Hashcodes zur Auffindung der noch gecheckt werden, ob die Übersetzung 
Satznummer und ich habe mein Wort beim tatsächlich stimmt. Es wäre ja möglich das 
ersten Zugriff geladen. Soweit, sogut ! Es ist durch die doppelte Benutzung eines Hashcodes 
aber leider möglich, das verschiedene Worte die korrekte Übersetzung auf der Diskette 
den gleichen Hashcode erhalten. Dieser Fall etwas weiter hinten steht. Sollte das der Fall 
tritt immer dann • ein, wenn ein Wort die sein, wird solange weitergelesen', bis die rich- 
gleichen drei Anfangsbuchstaben wie ein tige Übersetzung gefunden ist. 
anderes Wort hat. Im Prinzip eigentlich ganz einfach... 

Zum Beispiel die Worte >Haus< und >Haube< Das Programm an sich, ist meiner Meinung 
haben den gleichen Hashcode. Das würde dazu nach gut genug dokumentiert, um ohne 
führen, daß unweigerlich eines der beiden weitere Erklärung verstanden zu werden. Nur 
Worte gelöscht werden würde. Dieser Fall noch eines: 

muß also unter allen Umständen vermieden Das Programm ist so ausgelegt, das alle 
werden! Das wird so erreicht: Wörter klein geschrieben werden müssen. 

Nach der Berechnung des Hashcodes sieht Wenn Sie alles lieber nur groß schreiben 

das Programm zuerst einmal nach, ob unter wollen, müssen Sie in den Zeilen 1082 bis 

diesem Hashcode bereits ein Wort gespeichert 1084 und 1088 bis 1090 jeweils die >-96< 

wurde. Wenn nicht, alles klar! Das Wort wird löschen. Dann funktioniert die Hashcode 

gespeichert. Falls doch, wird sequentiell Berechnung auch mit großen Buchstaben, 
solange gesucht, bis ein freier Satz auf der 


Programm-Ausdruck Vokabel Übersetzer 


1000 CLEAR lOOO i 

1001 CLS 

1002 ON ERROR GOTO 1122 - ^ 

1003 PRINTSTRING* (64, 191) 

1004 PRINT." Elektronisches Wörterbuch 

1005 PRINT: PRINTSTRING* (64, 191) 

1006 PRINT: PRINT 

1007 PRINT" 1 .... . Neue Diskette vorbereiten" 

1008 PRINT" 2. .V. .Deutsche Vokabel n eingeben" 

1009 PRINT" 3. ... .Englische Vokabeln eingeben" 

1010 PRINT" . ..4. . . . .übersetzen Deutsch-Englisch" 

1011 PRINT" 5. . . . .übersetzen Englisch-Deutsch" 

1012 PRINT : PRINT : PRINT" Zahl eingeben!"; 

101 3 A*= I NKEY* : I FA*= " " THENIÖ 1 3 

1014 ONVAL ( A$ ) GOSUB 1016, 1027, 1039, 1051, 1066 

1015 GOTO 1001 

1016 ’ ' ' ■ • 


48 GENIE DATA 



1052 OPENER",!, "daten" 

1053 CLS , 

1054 INPUT "Welches deutsche Wort übersetzen? 

1055 H*=DE* . 

1056 PRINT: PRINT: PRINT 

1057 GOSUB 1081:' Hashcode deutsches Wort 


Diskette -formatieren und Datei vorbereiten 


Deutsche Vokabel eingeben 


1017 CLS . V 

1018 PRINT " A C H T U N G ! ! * PRINT 

101? PRINT"Bei dieser Funktion wird die Diskette in Laufwerk 1 u 
nwei ger-" 

1020 PRINT "lieh gelöscht!" 

1021 PRINT"Legen Sie also bitte eine neue Datendiskette in Lau-fw 

er k 1 ein." . • 

1022 PRINT: PRINT"Ti ppen Sie ’F’ zum fortfahren, jede andere Tast 
& bricht ab ! " 

1023 A*=INKEY*: IFA*=" "THEN 1023 ' 

1024 IFA*< >"F"THENRETURN 

1025 CMD "ndf 1, Daten" 

1026 OPEN*^", 1, "daten ":CL0SE: RETURN 

1027 ’ 


1028 CLS 

1029 PRINT"Geben Sie die deutsche Vokabel ein" : INPUTDE* 

1030 PRINT: PRINT"Geben Sie die Übersetzung ein": I NPUTEN* 

1031 GOSUB 1 OB 1 : ’ Hashcode berechnen (deutsch) 

1032 GOSUB 10B7:’ Hashcode berechnen (englisch) 

1033 GOSUB 1093: "Datei öffnen, vorbereiten und schreiben 

1034 PRINT:PRINT: PRINT 

1035 PR INT "Noch eine Eingabe ? (Tippen Sie j oder n ! ) " 

1036 A*=INKEY*: IFA*=" "THENI036 

1037 I F A*= " n " 0R A*="N" THEN RETURN 

1038 GOTO 1027 

1039 ’ ,V7' 


Englische Vokabel eingeben 


1040 CLS 

1041 PRINT"Geben Sie die englische Vokabel ei n ": INPUT EN* 

1042 PRINT: PR INT "Geben Sie die Übersetzung ei n ": INPUT DE* 

1043 GOSUB 1081: ’ Hashcode berechnen (deutsch) 

1044 GOSUB 1087:’ Hashcode berechnen (englisch) 

1045 GOSUB 1093:’ Datei öffnen, vorbereiten und schreiben 

1046 PR I NT : PR I NT : PR I NT 

1047 PRINT"Noch eine Eingabe ? (Tippen Sie j oder n!)" 

1048 A*= INKEY*: IFA*=" "THEN1036 

1049 IF A*="n" OR A*="N" THEN RETURN 

1050 GOTO 1027 
1051- * . • 


übersetzen Deutsch — > Englisch 







1OS0 E1=ASC(MID*(EN*, 1, 1) >.r*9£ 

1089 E2=ASC(MID*(EN*,2, 1) >-96 

1090 E3= ASC (MID* ( EN* ,3,1)) -96 

1091 HE=100*E1+10*E2+E3 

1092 RETURN 

1093 ’ 


Datei öffnen, vorbereiten und schreiben 


1094 0PEN“R" , 1 , "daten " 

1095 FIELD 1, 200 AS A*(l) ,20 AS A*<2) 

1096 SN=HEs GOSUBl 1 17s I FF=0THENHE*HE+ 1 : GOTO 1096 

1097 SN=HD: GOSUBl 117* I FF=OTHENHD=HD+ 1 i GOTO 1097 

1098 LSET A* ( 1 ) =DE* 

1099 LSET A*(2)=STR*(HE) 

1100 PUT 1 f HD 

1101 LSET A$(1)=EN* 


105B GOSUB 1105s’ Deutsches Wort lesen 

1059 GOSUB 1109s’ Englisches Wort lesen 

1060 IF LEFT*(DE*,LEN(H*) ) < >H*THENSN=HD: GOSUB11 13 

1061 PRINTDE*;" — > " ; EN* 

1062 PRINTs PRINTs PRINT"Noch ein Übersetzung? <j/n>" 

1063 A*= INKEY*: IFA*="" THEN 1063 

1064 IF A*="n" OR A*="N" THEN CLOSEs RETURN 

1065 GOTO 1053 

1066 ’ 


übersetzen Englisch —> Deutsch 


1067 OPEN "R",l, "daten" 

1068 CLS 

1069 INPUT “Welches englische Wort übersetzen?" ; EN* 

1070 H*=EN* 

1071 PRINTs PRINTs PRINT 

1072 GOSUB 1087s’ Hashcode englisches Wort 

1073 GOSUB 1109s’ Englisches Wort lesen 

1074 GOSUB 1105s’ Deutsches Wort lesen 

1075 IF LEFT* <EN* f LEN (H*) ) < >H*THENSN=»HEs GOSUBl 113 

1076 PRINTEN*;" — " ; DE* 

1077 PRINT: PRINT: PRINT"Noch eine Übersetzung? <j/n)" 

1 078 A*= I NKEY* : I FA*= " M THEN 1078 

1079 IF A*="n" OR A*="N" THEN CLOSE: RETURN 

1080 GOTO 1068 

1081 ’ 


Hashcode für deutsches Wort bilde : n 


1082 D1=ASC (MID* (DE*, 1 , 1 > ) —96 

1083 D2= ASC ( M I D* < DE* ,2,1)) -96 

1084 D3=ASC (MID* (DE*, 3,1)) -96 

1085 HD=100*D1+10*D2+D3 

1086 RETURN 

1087 ’ 


Hashcode für englisches Wort bilden 




1106 FIELD 1,200 AS A* ( 1 ) . 20 AS A$(2) 

1107 GET 1 , HD 

1 10B DE*=A* < 1 ) : HE=VAL ( A$ <2) ) : RETURN 
1109 ' 


Englisches Wort lesen 


1110 FIELD 1,200 AS A* < 1 ) , 20 AS A«(2> 

1111 GET 1 , HE 

1112 EMMA* ( 1 ) : HD=VAL < A* (2) ) : RETURN 

1113 f 


GENIE I. »I + Ill 
TBS 80 


Hashcode ist doppelt! Weiterlesen, bis Wort stimmt 



1114 SN=SN+1:G0SUB1 117 

1115 IF F=1THEN G0T01 121 

1116 IFLEFT* <A* ( 1 ) , LEN <H*> > =H*THENHD=SN: G0SUB1 105s G0SUB1 109: RETU 
RN : ELSEGOTO 1 022 

1117 >. . ' ' 


festen ob nächste Satznummer frei. 

(Wenn ja — > F = 1, wenn nein — > F = 0 ■ybivX:’./ 



1118 GET 1 , SN , 

1119 IF VAL(A*(2> )=0THENF=1ELSEF=Ö 

1120 RETURN: ’ ■ - 

1121 PR INT 11 Wort wurde nicht gefunden ! " : F0RI=1TQ600: NEXTI : CLOSE 
GOTO 1001 

1122 IF ERR=126 THEN PRINT"Wort ist nicht bekannt.'!!" 

1123 FOR 1=1 TO 1 500 : NEXT I: CLOSE : RESÜME 1001 


Das Warten hat sich gelohnt. Das GENIE 16 ist ein Profi-Computer zum Einsteiger-Preis. 
Mit einem riesigen Software-Angebot. Denn das GENIE 16' ist PC-kompatibel, 

• 16-bft-MikroßToiessor 8086 • AT/DOS Betriebssystem 

• 128« RAM (Ms 768« RAM Speicher ^ (erweitertes MS/DOS) 

• ausbaubar) • Eingebeuter Lautspredter 

• 44« ROM • Ergonometrisdies Design 

• 16- Farben • PC-hompatibel 

• 2 x 360« Laufwerke • Deutsche Tastatur 


Postfach 2105 
5205 St. Augustin 2 
Tel.: 0 22 41/2 80 71 


DNl (inklusive Mehrwertsteuer) 
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KRiSTOF DOFFING 


Editor 


Das Source-Listing wird eingegeben, mit 
einem Assembler übersetzt und auf Cassette 
gespeichert. Für Besitzer von 32 K Geräten 
empfiehlt es sich, das Programm im Speicher 
weiter nach hinten zu legen. In diesem Fall 
ändern sich die beiden Adressen in den' Zeilen 
50 und 60. 

Soll etwas auf dem Bildschirm editiert 
werden, so wird LINE eingegeben. Dafür kann 
auch F3 benutzt werden. Sofort erscheint ein 
Doppelprompt (») und der gewohnte Cursor. 
Man kann jetzt wie üblich eingeben, sowohl 
Programmzeilen als auch aktive Befehle. Nur 
die Funktionstasten werden nicht beachtet. 
Aber ausserdem erscheint in der linken, 
oberen Ecke der nichtblinkende sogenannte 


Kopiercursor. Er wird mit den Pfeiltasten in 
Verbindung mit SHIFT gesteuert. Dieser 
Cursor wird nun an die gewünschte Stelle ge- 
bracht, von der etwas kopiert werden soll. 
Sodann drückt man die Pfeiltaste rechts (ohne 
SHIFT). Dadurch wird das durch den Kopier- 
cursor angezeigte Zeichen erfasst, und es er- 
scheint in der Eingabezeile. So kann man eine 
ganze Zeile von verschiedenen Stellen her 
zusammensetzen und mit Zusätzen, wie z. B. 
einer Zeilennummer, versehen. Nach Beendi- 
gung der Eingabe wird wie üblich RETURN 
gedrückt. Wird BREAK gedrückt, sofort und 
ohne Auswirkungen in den normalen Einga- 
bemodus. 


10 ' 
20 
30 
40\ 
50 
60 
70 
30 
?Ü 
100 
no 
120 
130 
140 
150 
160 
170. 
1 BO 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 


ORG 435EH 
D£FM“LINE M ; 
DEFB 0 ; 

DRG 41A3H • 

CALL 7C00H ; 

ORG 7 CO OH 
ANF LD HL, 41E8H; 
LD (40A7H) , HL; 
LD DE, 17408 ; 

LD A, 14 ; 

CALL 033 AH ; 
. LD Ai, 62 ; 

CALL Ö33AH 
CALL 033AH ; 

OHNE LD A, (DE) ; 
LD (47E8H) , A ; 
LD A, 215 ; 

LD (DE) , A ; 
HAUPT PUSH 'HL ; 
PUSH DE! ; 

CALL 033 SH ; 
POP DE ; 

POP HL ; 

CP 1 5 

JP 2 , O066H ; 
CP ODH ; 

JP Z , RTURN 
CP 9 

JP Z , CQPY 
CP 10 
JR Z, HAUPT 
, CP 91 , 

JR Z, HAUPT 
CP 8 

JP Z , BACK 
CP 24 


| LINE’ au-f F3. 

MIT SOFORTIGEM RETURN, 

START NACH * LINE* . 

BUFFERANFANG IN HL. 

" ABSPEICHERN. 

2. CURSOR AUF POSITION. 

CURSOR 

AN. 

DOPPEL- 
PROMPT ( ») 

AUSGEBEN. 

ZEICHEN UNTER 2. COURSÜR HOLEN 
UND ABSPEICHERN. 

2. CURSOR 
AUSGEBEN. 

BUFFFERP OS I T I ON RETTEN. 

2. CURSORPOSITION RETTEN. ' 
INKEY$ HOLEN. 

2. CURSORPOSITION ZURUECK.', / 
BUFFERPOSITION ZURUECK. - 
I NKE Y$=BRE AK 
JA, — > BASIC 
“RETURN 

™.-> ( COtOnj 

“PFTASTE RECHTS L 

=PFT ASTE UNTEN 
JA, -> (TUE NICHTS) 

“PFTASTE OBEN 
JA, -> (TUE NICHTS) 

=PFTASTE LINKS 
JA, — > 

“PFTASTE- LINKS SHIFT 
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.370 JP Z, LINKS jJA,-> 

380 CP 25' ; -PFTASTE RECHTS SHIFT 

390 JP Z, RECHTS ;JA,-> 

400 CP 26 ; =PFT ASTE UNTEN SHIFT 

410 JP Z , DOWN ;JA, -> : 

420 CP 27 ;=PFTASTE OBEN SHIFT 

430 JP Z,UP ; JA, -> 

440 CP 32 ; ^SONSTIGES STEUERZEICHEN CDER " " 

450 JP M,DRAW ;< < SPACE ) JA, NUR AUSBABE AUF BILDSCHIRM 
460 JP UEBER ; =FUNKTIONSTASTEN 

470 MALEN PUSH AF ; INKEY« RETTEN 
480 LD A, L ; IST DER BUFFER 

490 CP 0E7H ; SCHDN VOLL. 

500 JP Z, HAUPT ;JA,-> (TUE NICHTS) 

510 POP AF ; INKEY« ZURUECK. 

520 LD (HL) , A ; INKEY« IN BUFFER. 

530 INC HL ; BUFFER EINS WEITER. 

540 DRAW CALL 033AH ; INKEY« AUF BILDSCHIRM. 

550 LD A, ( 47E8H) ; 2. CURSOR 
560; LD (DE),A ; ERNEUERN. 

570 JP OHNE : ->HAUPTSCHLEIFE 

580 UEBER CP 92 ; IST 

590 JP M„ ZUR1 ; INKEY« 

600 CP 96 ;= 

610 JP P,NEX1 ; EINE 

620 JP HAUPT ; DER 

• 630 NEX1 CP 123 ; ACHT V 

640 JP M,ZUR1 ; FUNKT 10NS- 
650 CP 128 ; TASTEN. 

660 JP P, ZUR! ; WENN 
670 JP HAUPT ; JA, ~> (TUE NICHTS) 

680 ZUR1 JP MALEN;; SONST AUGABE AUF BUFFER/BILDSCHIRM. 

690 RTURN LD A, (47E8H) s2. CURSOR 
700 LD (DE) , A ; LOESCHEN. 

710 LD (HL) ,0; BUFFERENDE MARKIEREN. 

720 LD DE, (40A7H) ; BUFFERANFANG LADEN. 

730 AND A ; UND VON 

740 SBC HL. DE ; BUFFERPOS I TI DN ABZIEHEN. 

750 LD B,H ; DAS ERGEBNIS ( BUFFERLAENGE) 

760 LD C, L ; NACH BC.. 

770 LD HL, (40A7H); BUFFER ANFANG NACH HL. 

780 . LD AjODH . ; CARRI AGE RETURN 

790 CALL 033AH ; AUSFUEHREN. 

300 LD A, 15 ; CURSOR 

810 CALL 033 AH ; AUS. 

320. XOR A- ; AKKU = 0. 

330 DEC HL ; BUFFERANFANG- 1 (FUER DIE VERARBEITUNG). 1 

340 JP 1AB1H 5 -> ROM ZUR VERARBEITUNG,. 

350 COPY LD A,L s IST DER V! 

S60 CP 0E7H . ; BUFFER VOLL. 

370 JP Z, HAUPT ; JA, -> (TUE NICHTS) 

380 LD A. (47EBH) ; IST DAS ZU KOPIERENDE 

- 390 CP 32 s ZEICHEN < 32. 

900 JP M, HAUPT ; JA, -> (TUE NICHTS) 

910 LD (HL) , A ; SONST IN DEN BUFFER DAMIT. ' J 

920 LD (DE) , A ; 2. CURSOR ERNEUERN. 

930 INC HL ; BUFFERPOSITION EINS WEITER. \ 

940 CALL 033 AH ; KOPIERTES ZEICHEN AUF DEN BILDSCHIRM. 

950 CALL ROOM ; IST PLATZ, UM 2. CURSOR ZU BEWEGEN. 
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960 
970 
980 
990 
1000 
1010 
1020 
1030 
1 040 
1050 
1060 
1070 
1 080 
1090 
.1100 
11 1 0 
1120 
1130 . 
1140 
1 150 
1160 
1170 
1180 
1.190 
1200 
1210 
1220 
3 230 
1240 
1250 
1260 
1270 
1290 
1290 
1300 
. 1 310 
1320 
1330 
1340 
1 350 
1360 
1370 
1380 . 
1390 
1400 
1410 
1420 
1 430 
1440 
1450 
1460 
1470 
1480 
1490 ' 
1.500 
1510 
1520 
1530 
1540 


CP 1 

JP' Z , OHNE 
INC DE 
JP OHNE 
BACK LD A , L 
CP 0E8H 
JP Z , HAUPT 
LD A„ S 
CALL 033 AH 
DEC HL 
JP HA UP 
RQOM LD fi., D 
CP 44H 
JP M. EINS . 
CP 48 H 
JP M, TTT 
EINS LD, A, i 
RET 

TTT LD A, O 
RET 


NEIN, (As 1=NEIN/0=JA> 
DANN. -> HAUPTSCHLEI FE. 

SONST 2. CURSOR EINS' WEITER. 
-> HAUPTSCHLEIFE 
IST DER BUFFER NOCH 
AM ANFANG. 

JA, -> (TUS: NICHTS) 

SONST LETZTES ZEICHEN. 

AUF DEN BILDSCHIRM L OE SC HEM. 
BUFFERPOS I TI ON EINS ZURUECK. 


IST 2.CURSGRPCS. 

< BILDSCHIRMANFANG. 

JA, — > (A=l) 

; IST 2. CURSORPOS. KLEINER. 

; BILDSCHIRMENDE. JA, ->• (A=0> 

5 AKKU AUF ’NEIN’ . 

;-> 

; AKKU AUF 'JA’ . 

’ / 

LINKS PUSH DEj 2. CURSORPOSITION RETTEN. 

DEC "l DE ; PROBEWEISE EINS NACH LINKS. 
CALL ROÜM ; IST SO PLATZ. 

POP DE; 2. CURSORPOS I TIONS ZURUECK 

CP 1 ; WENN NEIN 

JP Z , HAUPT; DANN — > (TUE NICHTS) 

LD A, (47E8H) ; SONST 2. CURSOR 
L.D (DE), As ERNEUERN. . 

DEC DE; UND EINS NACH LINKS 

JP OHNE ;-> HAUPTSCHLEIFE 
RECHTS PUSH DE ; SIEHE ’ LINKS’ . 

INC DE; 

cÄ'ROOli s 
F‘OR DE; 

CP V ; 

JP Z, HAUPT ; 

LD A, C47ESH) ; 

LD (DE) , A ; ' c 

INC DE; 

JP , OHNE 3 

UP PUSH DE. ; 2. CURSÜRPOSITION RETTEN. . 

; PUSH HL ; BUFFERF'OSI TI DN RETTEN. 

LD H, D ; DE NACH . 

LD L, E ; HL. 

LD DE, 40 ; PROBEWEISE 

AND A ; 40 VON POSITION 

SBC HL , i>E ; ABZIEHEN. - 
- LD / D, H; ERGEBNIS NACH 
‘ LD E, L; DE. 

CALL ROOM ; IST SO PLATZ. 

POP HL; BUFFERPOSITION ZURUECK. 

PÖP DE; CURSORPOSITION ZURUECK. 

,CP 1 ■; WENN NEIN, 

JP Z, HAUPT ; DANN -> (TUE NICHTS) 

LD A, (47EBH); SONST 2. CURSOR 
LD (DE) , A ; ERNEUERN. 

PUSH HL • ; BUFFERF'OS. RETTEN. 

LD H, D : ; DE NACH 

ld L. E . s hl. ' 
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:'.530 LD BC , 40 5 DANN 40 

3 560 AND A DAVON 

15/6 SBC HL, BC 5 ABZIEHEN. 

3 5.80 LD D.H 5 UND DAS ERGEBNIS 

3 590 LD E, L 5 NACH DE ZU RU ECK . 

3 i-00 POP HL „• BUFFERPOS ZURÜEEF 

3 610 JP OHNE . s <>■- HAUPTSCHLEIFE 
3620 DOWN PUSH DE; SIEHE UJP ; '. 

3 63.6 PUSH . HL ; : 'Tf- 

3 646 LD H„ D ; ' ■ 

3650 LD L:',,E • 

3660 LD BC, 40 ; ' * * 

3 670 ADD. HL, BC 5 . 

3 6SO LD . D„ H ; 

3 690 L.D E,L ; 

1700 CALL RDOM 5 " 

1710 POP HL . " 

3 720 POP DE 7 5 ■ 

3 730 CP 1 ■= 

1740 JP Z, HAUPT . ; 

3 736 LD A,;t.47EBH>; ' " 1 

1- 7.60 LD (DE; ,.A 5 ' ' 

3 770 PUSH HL ' ;/ 

1 780 LD H, D ' ; ' r ) ■ ' 

1790 LD L, E ; ' f . ' : 

3 300 LE' BC, 40 ; 

3310 ADD HL, BC ; 

1320 LD D, H ; 

3930 LD E, L ; >.• 

1840 PDP HL ■ ; ' ' 

1B50 III. JP OHNE ; 

1360 END ANF 


STEFAN AUST 


Programm für schnelle Ausführung. Die Pro- 
grammsteuerung erfolgt über ein Menu und ist 
selbsterklärend. 

Die Gesetze des Lebens: 


Ein Simulätionsprogramm für das Wachstum 
einer Zellenkolonie nach den Conway 1 sehen 
Lebensregeln. Es verfügt über einen Editor für 
die Kolonie und ein Maschinenspracheunter-: 
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Jede Zelle kann bis zu acht Nachbarn haben. 
Sind es jedoch mehr ais drei oder weniger als 
zwei, so stirbt sie an Überbevölkerung bzw. 
an. Einsamkeit. Hat ein leeres Feld genau drei 
Nachbarn, so wird dort eine neue Zeile, ge- 
boren. ■ ' ' 

Assemblerquelltext: : 1 r '- . • • 

Dieser Teil ist schon im Basicprogramm ent- 
halten (großer DATÄ-Zeilenblock), muß also 
nicht mehr mit eingegeben werden. Zum 


besseren Verständnis haben wir es aber mit 
abgedruckt. 

In Speicherstelle 4C1QH (Geburt) steht die 
Anzahl der benötigten Nachbarn für eine 
Geburt. In 4C11.H (Sterben) steht die Zahl der 
maximalen Nachbarn, in 4C12H steht die Zahl 
der. minimalen Nachbarn minus eins. 

Diese Daten können geändert werden, falls 
sich die Lebensregeln ändern sollen. 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 


Version 3.0’ 



:*40-4016,8 
! *-40-3977, 8 



760 

770 

780 

790 

800 

810 

820 


CLS: CHAR2: CLEAR500: DEFINTA-Z 
PR I NTÜ405 " Si mul at i on LIFE: 

’ Version 3. 2 vom 22.Tl.B4. 

IFPEEK (&H4C00) =216THEN490 
D AT AOOO ,000,000,015,031,028, 024 , 024 
DATAOOO, 000, 000, 255,255, OOO, OOO, 000 
DAT AOOO, OOO, OOO, 240, 248, 056, 024, 024 
DAT A024 , 024 , 024 , 024 , 024 , 024 ,024,024 
DATA024', 024, 028,031 , 015, 000,000, OOO 
DATA024. 024, 056, 240, 2241 OOO, 000(000 
DATAOOO, 000, OOO, OOO, 008, OOO, OOO. OOO 
DATAOOO, 000,024; 060,060, 060,024,000 
DATA068, OOO, 056,004,060, 068, 060, OOO 
D AT A068 ; OOO , 056 , 068 , 068 , 068 , 056 ,000 
DATA068i000j.O68.06B, 068, 068, 052, OOO 
FÜR I =? < HF400T0S4#457 
READA : POKE I , A 
NEXT ... • 

DATA216, 255,215,255,255, 255, 039, OOO 
DATA040, OOO, 041,000,001, OOO, 217, 255 
DATA003, 003, 001,000, 000, 033,000; 072 
DATA017, 081 ,068, 006, 020, 197, 006, 038 
DATA 197. 221 ; 033; 000, 076,’ 229 , 001,000 

DATA035; 

DATAOOl ", , . 

DATA 193,016, 221,019,019 ( 193, 016 ,213 
DATAO 17, 081 , 068', 033. 000, 072, 22 1 ’ 033 
DATAOOO, OOO, 006; 0202197, 006; 038, 197 
DATA026, 254, 135', 040, 028, 058, 016’ 076 
DATA 1 90 , 032 ; 005(062; 135; 0 1 8 , 22 1 ; 035 
DAT A035 ,019, 193,01 6, 234.019 ,019, 1 93 
DATAO 1 6 , 226 ,221,229, 225 , 034 ,019, 076 
DATA201 ,058,017,076, 190,056.006,058 
DATA018, 076, 190,056,225,062, 134(018 
DATA024.222 
FOR 1 =&H4COOTO?<H4C89 
READA : POKE I , A 
NEXT 
CLS 

FOR I =0T039 

POKE 1 7448+ I. 129; POKE 18288+1, 129 
POKE 1-4056, 8: POKEI-3216, 8 
NEXT ’ 

FORI=0TO19 

POKE 17488+ 1*40, 131:P01 
POKE 17527+ 1*40, 131:P0I< 

F0RJ=1 T03B 

'POKE 1 7488+ 1 * 40+3 ,134 • ' -| $, 

NEXTJ, I 

POKE 1/448, 128: POKE 17487, 130 
POKE 18288’, 132: POKE 18327’ 133 
C0L0UR1 

U$="Generation:#### — Anzahl:####" 

AN=0: X=1 : Y=2: C=174O0: L=40: G=1 : V=9: 0G=0 
PR I NT §960 . US I NGU* ; G , AN : 

Ajlr " ) el 1 en " + CHR$ ( 136) +"ndern — S)tart Wachstum--E) nde 1 

F0RI=lTq6 :F üRJ=l T01 2: pL A Y (l, !, J, 15) :NEXTJ, I:S0UND8,0 

bUSUBo 1 O 

G0SUB890 

IFA*="e"THEN740 

IFA$="z "G0SUB940 

IFA*= "s" GOSUB 1 550 

G0T0660 

§aiü^8 llen Sle wirkllch aufh"+CHR*( 137) +"ren ?" 

IFA$< > " j " ANDA$< > " n " THEN740 
I FA$= " j - 1 THENA$= "ja U ELSEA$= "nein" 

G0SUB810 

IFA*="ja"PRINT§400, " " ; : END 
GOTO660 ’ 

FOR 1= 1 TOLEN < A$ ) 

PRINT§-1+I.MID*(A*, I, 1) “b" j : PLAY <1,2, 5, 15) 
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830 F0RJ=1T015:NEXT 
840 PLAY <1.1. 0,0) 

850 FORJ=1TQ10:NEXT 
860 NEXT 

B70 PR I NTCHR* ( 8 ) CHR* ( 30 ) ; : RETURN 
880 G0SUB810 

B90 A*=INKEY*: IFA*=" "THENF=1-F: IFF=1THENPRINT§0, " ";ELSEPRII 
E910 

900 FÜR I=0T099: NEXT: G0T0890 
910 A*=CHR*(ASC(A*)0R32) 

920 F0RI=1T07: PLAY (1,5, 1,15): F0RJ=0T09: NEXTJ , I : S0UND8, 0 
930 RETURN 

940 B*= ,,, *J r =bewegen-<SP >=setzen-<CLR>=l "+CHR* (137) + “ sehen" 

950 A*=B*:GDSUB81Ö 

960 A*="uind . . . " : G0SUB810 

970 A*="S)piegeln-L) “+CHR* ( 137) +"schen-E> nde-W) echsel Zeile 
980 G0SUB810 

990 CU=PEEK(C+X+Y*L) : P0KEC+X+Y*L, 43 
1000 PRINT§960,USINGU*:G J> AN: 

1010 C*=INKEY*: IFC*<>" ^HENC*=CHR* ( ASC (C*) 0R32) 

1020 IFC*="e"THENPOKEC+X+Y*L, CU: RETURN 

1030 I F C*= “ m " THENSWAPA* , B* : G0SUB8 1 0 

1040 IFC*="s"THENl 180 

1 050 I FC* = " 1 '• THEN 1 450 

1060 X 1=0: Y1=X 1 : A=PEEK (—1984) 

1070 I FAAND2THEN I FCU= 1 35THEN AN= AN- 1 : CU= 134 

1080 IFAAND128THENIFCU<>135THENAN=AN+1:CU=135 

1090 I FAAND32THENX 1 =- 1 

1 00 I FAAND64THENX 1=1 

1110 1 F AAND8THEN Y 1 =- 1 

1120 I F A AND 1 6THEN Y 1 = 1 

1130 P0KEC+X+Y*L.CU 

1 40 IFPEEK (—1920) =1THENX1=X 1 *5: Y1=Y1 *5 
1 50 IFX+X 1< 1THENX=3SELSEIFX+X 1 >38THENX=1ELSEX=X+X 1 
1160 IFY+Yl<2THENY=20ELSEIFY+Yl>2lTHENY=2ELSEY=Y+Yl 
1170 G0T0990 
1180 E*=A* 

1190 A*=“ > H) ori zontal — V)ertikal — E)nde" 

1200 G0SUB880 

1210 IFA*="h" THEN 1350 X ^ 

1220 IFA*= ,, v'' THEN 1250 / nilRV 

1230 IFA*< >"e"THENl 190 AcOtQMM 

1240 POK.EC+X+Y*L, CU: A*=E*: GOTU980 ( / 


1250 A*= > L) inks— >Rechts ~ R) echts->Links V 13 S 

1260 G0SUB88Ö: IFA*< >" 1 ”ANDA*< >"r "THEN 1250 

1270 0=38-X:lFX-l<0THEN0=X-l: IF0=0THEN1240 

1280 F0RI=2TÖ22 

1290 F0RJ=X-ÖTDX-1 / 

300 P1=C+I*L+X-J:P2=C+I*L+X+J 
310 I F A*= " r " THENSW APP 1 , P2 

320 P=PEEK ( P 1 > : I FPEEK ( P2 ) = 1 34ANDP= 1 35THENP0KEP2 , P : AN= AN+ 1 
330 NEXTJ, I 

1340 GOTO 1240 > 

350 A*="> Q)ben->Unten — U) nten->Oben ” 

1360 G0SUB880 : I F A*< > " o " AND A*< > " u " THEN 1350 
370 0=2 1 - Y : I FO > Y-2THEN0= Y-2 : I FÜ=0THEN 1240 
1380 FOR 1=1 T038 

I 400 P?2c+)I°Y-J > *L: P2=C+I+ (Y+J) *L 

: 420 P=PEEk“pIV?IFPEEK (? > 2)‘=134ANDP=135THENP0KEP2, P: AN=AN+1 
1430 NEXTJ. I 
1440 GOTO 1240 
1450 E*=A* 

1460 A*=" > Den gesammten Bildschirm 1 "+CHR* ( 137) +" sehen ?? 
1470 IFA*<>" j" AND A*<>"n” THEN 1460 
1 480 I FA*= " j* THENA*=" ja" ELSEA*= "nein ■ 

1490 G0SUB810 

1500 IFA*="nein"THEN1540 

1510 G=1:AN=0:F0RI=1T038 

1520 F0RJ=2T021:P0KEC+I+J*L, 134 

1530 NEXTJ, I 

1540 GOTO 1240 

1550 A*=" >S) tart — V) erz "+CHR* ( 137) +"gerung — L) imi t--E) nde" 
1560 G0SUBB80 a * 

1570 I FA*#" s" THEN 1700 
1580 I FA*= " v "GOSUB 1 620 
1590 IFA*« 11 1 "GOSUB 1790 
1600 IFA*="e "RETURN 
1610 GOTO! 550 

1620 A*= " Verz " +CHR* (137)+" ger ung i st " : I FV=— 1 THENA*=A*+ " un 
A*=A*+STR*(V) . * . 

1630 GOSUB816 
1640 FORI =1T050: NEXT 

1650 A*=”> Verz "+GHR*( 137) +"gerung 0..9 oder T)astdruck" 
1660 G0SUB880 

1670 I F A*— t " THENV=— 1 : RETURN 

1 680 IFA* > " / " AND A*< " : " THENV= ASC ( A* ) -48 : RETURN 
1690 GOTO 1650 


1700 
1710 
1720 
1730 
1 740 
1750 
1760 
1770 
1780 
1790 
e" 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 
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A$-“ > Wachstum: — E)nde" 

GOSUB810 

'CALL4C15 ' .? • r. 

AN=PEEK (&H4CT3) +PEEK (&H4C14) *256: G=G+1 
PR I NT5960 .i US I NEU* i G . AN ; 

IF V>- 1 THENFOR I -OTOV* 100 : NEX TELSE6ÖSUB890 : I FA*= " e " RETURN 
A*=INKEY*: IFA*="e"ORA*="E"RETURN 
I FG=OGQRAN=OTHENRETURN 
GOTO 1720 

A$= V >Z > " +CHR* ( 1 36 > + " h 1 er r"+CHR* ( 138) +“cksetzen-r 0) bergrenze — E)nd 

G0SUB880 
I FA*= "e " RETURN 


IFA*< 


' AND A*< > " o " THEN 1 790 


IFA*= z "THENG=1 : RETURN 

A*=" Ober grenze war " +STR* (OG) 

GOSUB810 

F0RI=0T099: NEXT 

A$== ” Neue Obergrenze. . " 

G0SUB810 

INPUT A$ : OG=VAL (A*) 
F0RI—7T01STEP— 1 : PLAY ( 1,3, I, 1 
RETURN 


, 15) : F0RJ = 1T06: NEXTJ , I : SOUNDS, 0 


; ************ **** ** ****** * * * 


ASSEMBLER-ROUTINE 

EUER 

. L I F E: ' 


101 ;** ASSEMBLER-ROUTINE ** 

102;** FUER - ** 

103 ';** L I FE ** 

104 ** — — •• ** 

105 ;** ■ ■. ** 

106 ;** VERS. 1 STEFAN AUST** 

107 •** DATUM: 16.11. 1984 ** 

108 ;*************************** 

109 ; 

110 ; " (C) Copyright Stefan M. Aust November 1984 


110 ; " (C) Copyright Stefan 

11.1 ; -v..-:!-.' 

112 ; "Nur lauf f aehig mit Basicteil 

114 Adresse equ 48ooh 

1 15 START EQU 17408+81 

116 PUNKT EQU 135 


117 LEER 

ne x gross 

119 YGROSS 

120 ; 

121 

123 t ABELLE 
.124 •: 

125 GEBURT 

126 STERBEN 

127 LEBEN 

128 ANZAHL I 


EQU 


4C00H 


: DEFW -40 ,-41, -1,39 
DEFW 40,41, 1,-3$ 
DEFB 3 
DEFB 3 
DEFB 1 
DEFS 2 


> 


130 ; "Erster Proqrammbl ock: . ' , 

131 ; " Auf ei nem 38x20 Zellen grossen Feld werden die Nachbaren jedes Fe 

ldes | ■ ■' v ; .' : ^ • 

132 ; "gezaehl t und das Ergebnis (maximal 8) in einer Tabelle ab 4800H a 
bgel egt .. 

■I-.!>3 ; . . ' •" i.- ’ . 4 1 


134 RUN 

135 

136 


PUSH B t 
LD B, 
PUSH BC 


HL, ADRESSE 
DE, START 
B, YGROSS 


B. XGROSS 


LD IX, TABELLE 

PUSH HL' 

LD BC , 0800H 

LD L , ( I X +0 ) 

LD H, ( I X+l ) 

INC IX 
INC IX 
ADD HL. DE 
LD A, (HL) ' 

CP f-Cjnkt 

JR C, KEINER 
INC C 
DJNZ LOOF'C 
POP HL 
LD (HL) , C 
INC HL 
INC DE 
POP BC 
DJNZ LOOPB 
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162 DJNZ LÖOPA ' ^ • 

163 ; 

164 5 "Zweiter Programmblack: i 

165 ; "Nun wird gemaess bestimmter Gesetze entschieden, ob eine Zelle st 
irbt 

166 ; "oder neu geboren wird. 

167 ; "Hat eine Zelle mehr als 3 Nachbaren, so stirbt sie an Ueberbevoel 
kerunq. 

168 ; "Hat sie weniger als 2 Nachbaren, so geht sie an Einsamkeit zugrun 
de. 

169 ;"Ist ein leeres Feld von 3 Nachbaren umgeben, so entsteht dort ein 
e neue 

170 ; "Zel 1 e 

171 ; 

172 

173 

174 

175 

176 LOOP1 

177 

178 LOOP2 


LD HL, START 

LD DE, ADRESSE 

LD IX, O 

LD B.^GROSS 

PUSH BC 
LD B.XGROSS 

PUSH BC 

LD A. (DE) 

CP PUNKT . 1 

JR NC.SCHONDA 

LD A, (GEBURT) • 

CP (HL) ^ 

JR NZ. WEITER 

kB 

187 WPLUS INC IX . 

188 WEITER INC HL 

189 . INC DE .a\ 

190 POP BC / ) 

191 DJNZ L00P2 /rO V ^ / 

192 INC DE - ( ^ / 

193 INC DE V * 

194 POP BC 

195 DJNZ L0QP1 

196 PUSH IX : 

197 POP HL 

198 LD (ANZAHL) , HL , 

199 ■ RET . • ’ ■ 

200 .: . • 

201 SCHONDA LD A, (STERBEN) 1 

202 CP (HL) 

203 JR C, TOT 

204 LD A, (LEBEN) 

205 JR Cj WPLUS 

206 TOT LD A. LEER 

182 bR wIIt^R 

209 r 

^<0 END RUN 

_ - i ;"Die Anzahl aller noch lebenden Zellen wird in 4C13H/4C14H abgeleg 


nieren 





m\ 




s 0 * ■< $. *** * ** ^ cv 

«**'’**’'' /X^/o? 


* PROGRAMME AUS DEM HAUSE H Ü B B E IM 
sind ganz einfach SUPER*** 




GENIE 111$ 


Sie suchen einen schnellen, leistungsstarken Rechner neuester Tech- 
nologie? Unser GENIE llls arbeitet mit einer Z 80 CPU bei 7,2 MHz 
Taktfrequenz. Der 128 K Benutzerspeicher kann auf der Platine bis 
256 K erweitert werden. Für die hochaullösende Grafik mit einer 
Auflösung von 512 x 512 Punkten stehen Ihnen in 2 unabhängigen 
Grafiksellen weitere 64 K Bildwiederholspeicher zur Verfügung. 

Das Bildformat ist frei wählbar, z.B. 80 x 25, 64 x 16 usw. Der Zeichen- 
satz ist frei programmierbar mit einer Matrix von bis zu 8 x 16 Punkten. 
Diverse Standardzeichensätze sind im Belrlebssystem enthalten. Die 
deutsche Tastatur ist frei beweglich und enthält 8 frei belegbare 
Funktionstasten und natürlich einen separaten Numerikblock. 

Die Kapazität d6r beiden 5,25" Slimline-Diskettenlaufwerke beträgt 
1,4 MByte. Jederzeit können weitere 31/2", 51/4“und 8“ Laufwerke 
direkt angeschlossen werden. Selbstverständlich kann auch eine 
Harddisk eingebaut werden. Betrie bssysteme sind CP/M und GOOS 
(GOOS im Lieferumfang), natürlich mit Integrierter Grafiksoftware. 


Alleinvertrieb 

über den Fachhandel durch: 
• 

i- 

KttlnOr. 4 
5205 «. Augustin 2 
Tal. O 22 41/2 80 71 
Til« 8 89 702 trom d 



Das GENIE llls hat neben dem Centronics-Parallel -Druckerausgang 
und 2 RS 232 (V24) Schnittstellen zusätzlich einen universellen 16 Bit 
parallel Ein-Ausgang mit 4 Handshake-Leitungen. 

5 freie S teckplätze (Slots) geben Ihnen die Möglichkeit zur individuellen 
Erweiterung des Systems. 

Die Multilayerplatine sowie die beiden Laufwerke sind zusammen mit 
dem reichlich dimensionierten Schaltnetzteil In einem formschönen, 
kompakten Metallgehäuse eingebaut. 

Die gesamte Elektronik des GENIE llls wird von der SIEMENS AG in 
Deutschland exklusiv für TCS gefertigt. 

Mil den beiden Betriebssystemen CP/M und GDOS haben Sie Zugriff 
auf die größten Softwarenpotentiale der Well. 

Informieren Sie sich über unser Angebot für Anwendersoftware. 


COUPON 


COMPUTER GMBH 


Bitte informieren Sie mich kostenlos und ausführlich 
über das GENIE llls und seine Anwendersoftware. 

Name 

Straße 

Ort 

Telefon / 




